Your question, your audience. Choose who sees your identity—and your question—with question security.
Dim dr As DataRow()
Dim con As New OleDb.OleDbConnection
Dim ds As New DataSet
Dim da As New OleDb.OleDbDataAdapter
Dim sql As String
cpath = "P:\HH2003"
con.ConnectionString = "Provider=PervasiveOLEDB;Data Source=" & cpath
con.Open()
sql = "SELECT * FROM Invoices ORDER BY DocumentNumber"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "Invoices")
con.Close()
dr = ds.Tables("Invoices").Select("DocumentNumber = " & (TempInv_no))
If Not (dr Is Nothing) AndAlso dr.Length > 0 Then
MessageBox.Show("Found Invoice: " & dr(0)("DocumentNumber").ToString())
frmInvoicing.txtInvoice.SelectAll()
frmInvoicing.txtInvoice.Focus()
IsinPervasive = True
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.