En un modulo .bas coloca esto para access, luego vas a propiedades de proyecto y selecionas submain como objeto inicial
Código:
Public dbConex As New Connection
Public Sub Main()
dbConex.CursorLocation = adUseClient
dbConex.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\SYSTEM_DB.mdb;Persist Security Info=False"
MDIForm1.Show
End Sub
Código:
'Conexion con password
dbConex.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & App.Path & "\SYSTEM_DB_PSW.mdb;Uid=Admin;Pwd=45568392;"
dbConex.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\SYSTEM_DB_PSW.mdb;Jet OLEDB:Database Password=45568392"
La conexion para sql server200 es similar