Skip to content

Reply To: ghostriderofthenite Ultimate Bot project

#100870

hmmmmmmmmmm or this

Private Sub Command7_Click()
Dim ourDatabase As Database
Dim ourRecordset As Recordset
Dim ourDatabase As Object
Set ourDatabase = Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\GrimReaper\Desktop\NewBot Project files\Complete 80 Languages New MDB files 22 may 14\” & Form4.Language & “.mdb”
Set ourRecordset = ourDatabase.OpenRecordset(“Adodc1.RecordSource = Form4.Language”)

Do Until ourRecordset.EOF
MsgBox ourRecordset = ourDatabase.OpenRecordset(“Adodc1.RecordSource = Form4.Language”)
ourRecordset.MoveNext
Loop

End Sub

but stil not working still trying