Ok, so my form displays an error saying "run time error. could not find installable ISAM." everytime i run it.
And its pointing at "conn.Open" part of the code when i run it.
heres my code:
Dim conn As ADODB.Connection
Dim rec As ADODB.Recordset
Dim rec1 As ADODB.Recordset
Dim rec2 As ADODB.Recordset
Dim rec3 As ADODB.Recordset
Dim esql As String
Dim esql2 As String
Dim esql3 As String
Dim esql4 As String
Dim searchvar As String
Private Sub Form_Load()
Set conn = New ADODB.Connection
Set rec = New ADODB.Recordset
Set rec1 = New ADODB.Recordset
Set rec2 = New ADODB.Recordset
Set rec3 = New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OlEDB.4.0;Data Source=" & App.Path & _
"F:\my computer project\ParlourDesign.mdb;Persist Security Infor=False"
**conn.Open**
esq1 = "select * PartPayment"
esql2 = "select * from Receipt"
esql3 = "select * from ReceiptService"
esq14 = "select * from Service"
rec.Open (esq1), conn, adOpenDynamic, adLockOptimistic
rec1.Open (esql2), conn, adOpenDynamic, adLockOptimistic
rec2.Open (esql3), conn, adOpenDynamic, adLockOptimistic
rec3.Open (esql4), conn, adOpenDynamic, adLockOptimistic
rec.MoveLast
rec.MoveFirst
Dim RR As Integer
FlexService.Clear
FlexService.Rows = rec.RecordCount + 1
FlexService.Cols = rec.Fields.count
FlexService.FixedCols = 0
FlexService.TextMatrix(0, 0) = "Service"
FlexService.TextMatrix(0, 1) = "Quantity"
FlexService.TextMatrix(0, 2) = "Price"
FlexService.TextMatrix(0, 3) = "Total"
rec.MoveFirst
RR = 1
Do While Not rec.EOF()
FlexService.TextMatrix(RR, 0) = rec.Fields("Service")
FlexService.TextMatrix(RR, 1) = rec.Fields("Quantity")
FlexService.TextMatrix(RR, 2) = rec.Fields("Price")
FlexService.TextMatrix(RR, 3) = rec.Fields("Total")
RR = RR + 1
rec.MoveNext
Loop
End Sub
And this is how my form looks like:
http://i213.photobucket.com/albums/cc228/rose_408/screen_zps1383ab65.png
Please please help! I'm having serious troubles connecting VB to M.Access. AND I'VE TRIED EVERYTHING!
PLEAAAAASE HELP ME OUT!
