Why do not see the next record in this sample? Only the first!

Public Sub Mutat() Handles MyBase.Load
connectionStr = "Driver={Driver do Microsoft dBase (*.dbf)};" & _
"collatingsequence=ASCII;defaultdir=C:\Syn;" & _
"deleted=0;driverid=21;fil=dBase III;filedsn=C:\Syn\PROBA.DBF.dsn;" & _
"maxbuffersize=2048;maxscanrows=8;pagetimeout=5;safetransactions=0 ;" & _
"statistics=0;threads=3;uid=admin;usercommitsync=Yes"

readSQL = "SELECT 'knev','vnev' FROM C:\Syn\PROBA.DBF"

Using connection As New OdbcConnection(connectionStr)
Dim command As New OdbcCommand(readSQL, connection)
Dim odr As OdbcDataReader
Dim txt As String
Try
connection.Open()
odr = command.ExecuteReader
While odr.Read()
txt = odr(0).ToString & odr(1).ToString
MsgBox(txt)
End While
Catch ex As Exception
MsgBox(ex.Message)
End Try
MsgBox("Open")
End Using
End Sub

Help me!

István