Private Sub txtName_KeyDown(KeyCode As Integer, Shift As Integer)
Dim n As Integer
Dim ret As String
Dim conn As New ADODB.Connection
Dim rec As New ADODB.Recordset
On Error GoTo Error
If KeyCode =  13  Then
esql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "D:\baza1\onco.mdb" 'App.Path & "\test.mdb"
VSFlexGrid1.Rows =  1 
n =  0 
conn.Open (esql), , ,  0 
esql1 = "SELECT * FROM Registr WHERE num like '" & txtName.Text & "*'"
'esql1 = "SELECT * FROM Registr WHERE num like '*" & txtName.Text & "*'"
'esql1 = "SELECT * FROM Registr WHERE  like num=" & txtName.Text & ""
'esql1 = "SELECT * FROM Registr"
rec.Open (esql1), conn, , adOpenStatic, adLockReadOnly
While Not rec.EOF
VSFlexGrid1.AddItem rec.Fields( 5 ) & vbTab & _
                     rec.Fields( 6 ) & vbTab & _
                     rec.Fields( 7 ) & vbTab & _
                     rec.Fields( 8 ) & vbTab & _
                     rec.Fields( 13 ) & vbTab & _
                     rec.Fields( 15 ) & vbTab & _
                     rec.Fields( 17 ) & vbTab & _
                     rec.Fields( 19 ) & vbTab & _
                     rec.Fields( 23 ) & vbTab & _
                     rec.Fields( 28 ) & vbTab & _
                     rec.Fields( 30 ) & vbTab & _
                     rec.Fields( 32 )
 rec.MoveNext
 Wend
rec.Close
conn.Close
Set rec = Nothing
Set conn = Nothing
MousePointer = vbDefault
End If
Exit Sub
Error:
MsgBox ("Error: " & Err.Description)
End Sub