OK funge, grazie tante!!


Dim strConnect As String
Dim strProvider As String
Dim strDataSource As String
Dim strDataBaseName As String
strProvider = "Provider= Microsoft.Jet.OLEDB.4.0;"
strDataSource = App.Path
strDataBaseName = "G3zero.mdb"
strDataSource = "Data Source=" & valore & "\" & strDataBaseName
strConnect = strProvider & strDataSource
connConnection.CursorLocation = adUseClient
connConnection.Open strConnect
rsRecordset.CursorType = adOpenStatic
rsRecordset.CursorLocation = adUseClient
rsRecordset.LockType = adLockPessimistic


Set rs = connConnection.OpenSchema(adSchemaTables)
Do Until rs.EOF
If rs("table_type") = "TABLE" Then
If Mid(rs("Table_Name"), 1, 4) <> "MSys" Then
'qui scrivi dove metterle
MsgBox rs("Table_Name")
End If
End If
rs.MoveNext
Loop
rs.Close