Public Class Form1
    Dim date1 As DateTime
    Dim time1 As DateTime
    Dim inc As Integer
    Dim MaxRows As Integer
    Dim intResult As Integer
    Dim date2 As String
    Dim time2 As String
    Dim name1 As String
    Dim descrip As String
    Dim exten As String
    Dim con As New OleDb.OleDbConnection
    Dim ds As New DataSet
    Dim ds2 As New DataSet
    Dim da2 As OleDb.OleDbDataAdapter
    Dim cb2 As New OleDb.OleDbCommandBuilder(da2)


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strSearch As String
        strSearch = "SELECT * FROM tblWorkOrder WHERE WorkOrder = #" & TextBox1.Text & "#"
        da2 = New OleDb.OleDbDataAdapter(strSearch, con)
        da2.Fill(ds2, "WorkOrders2")
        con.Close()
    End Sub
End Class