[VB6] Indirizzo di files di un programma

[spider75]

si trova in un modulo

Option Explicit

Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset

Sub connetti()
   With Cn
      .ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
                          "Data source = indirizzo\database.mdb;" & _
                          "Jet OLEDB: Database Password=xxx"
                          
                          
      .ConnectionTimeout = 5 
      .CursorLocation = adUseClient 
      .Mode = adModeShareDenyNone '
      .Open 
   End With
   With Rs
      .ActiveConnection = Cn 
      .LockType = adLockOptimistic 
   End With
End Sub