October 25, 2021 at 12:45 pm
#100870
ghostriderofthenite
Member
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