txtAearchResult.Text = ""
Dim vSearch As String = InputBox("Enter Integer number to search name:")
If vSearch <> "" Then
cmdOLEDB.CommandText = "SELECT Au_ID, Author FROM Authors WHERE Au_ID= @auid"
cmd.OLEDB.Parameters.AddWithValue("@auid", CInt(vSearch))
cmdOLEDB.Connection = cnnOLEDB

Dim rdrOLEDB As OleDbDataReader = cmdOLEDB.ExecuteReader
If rdrOLEDB.HasRows Then
    Do While rdrOLEDB.Read
        txtAearchResult.Text &= rdrOLEDB.Item(0).ToString & " " & rdrOLEDB.Item(1).ToString
    Loop
    rdrOLEDB.Close()
Else
    MsgBox("Record not found")
    Exit Sub
End If