'ADO.Net offline mode, VB.Net
'Programming the [Search] button

Dim XX As String
        XX = InputBox("Enter search word")
        If XX = Trim("") Then
            MsgBox("Enter dearch word please")
            Exit Sub
        End If
        Frec = Dtbl.Select("Field1 = '" & XX & "'")
        If Frec.Length = 0 Then
            MsgBox("Make sure the search word correctly spelled")
            Exit Sub
        End If
        TextBox1.Text = Frec(0).Item("Field1")
        TextBox2.Text = Frec(0).Item("Field2")
        TextBox3.Text = Frec(0).Item("Field3")
        Rec = Frec(0)