Dim cursor1 As ResultSet = SQL1.ExecQuery2("SELECT code FROM contact WHERE name = ?", Array As String(edit_name.text))
Dim res As Boolean
If Cursor1.NextRow Then res = True
Cursor1.Close
Return res
Dim cursor1 As ResultSet = SQL1.ExecQuery2("SELECT code FROM contact WHERE name = ?", Array As String(edit_name.text))
Dim res As Boolean
If Cursor1.NextRow Then res = True
Cursor1.Close
Return res
Dim cursor As ResultSet
cursor = SQL1.ExecQuery("SELECT code FROM contacts WHERE name = '" & edit_name.text & "'")
If cursor.NextRow Then
txtLog3.Text = cursor.GetString("code")
cursor.Close
Else
txtLog3.Text = "OK"
cursor.Close
End If