Dim MyDb As Database, MyTable As Recordset
Dim sSql As String
Set MyDb = Workspaces(0).OpenDatabase("Prova.mdb")
sSql = "select * from Tabella order by MIO"
Set MyTable = MyDb.OpenRecordset(sSql, dbOpentable)
Dim MyDb As Database, MyTable As Recordset
Dim sSql As String
Set MyDb = Workspaces(0).OpenDatabase("Prova.mdb")
sSql = "select * from Tabella order by MIO"
Set MyTable = MyDb.OpenRecordset(sSql, dbOpentable)
Hey hey, my my Rock and roll can never die!
Permessi di invio
Rispondi quotando