Abaixo segue como esta meu FORM LOAD agora.

Quero saber como devo abrir o BD que esta em outro PC.

 

Private Sub Form_Load()

 If Right(App.Path, 1) = "" Then
  DBname = App.Path & "Dados.mdb"
 Else
  DBname = App.Path & "" & "Dados.mdb"
End If

 Set DB = New Connection
 Set TB = New Recordset
 DB.Mode = adModeReadWrite
 DB.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & DBname & ";"

 TB.Open "select * from tb_dados Order By nome ASC", DB, adOpenStatic, adLockOptimistic
 End Sub

É só colocar no nome do banco... ao invés de usar

 

DBname = App.Path & "Dados.mdb"

 

Usar

 

DBname = "\compartilhamentoDados.mdb"

Sergio,

abra assim

DBname =  "f:dirDados.mdb"

ou nome do micro

DBname = "\micro1cdirDados.mdb"

ou por IP

DBname = "\192.168.0.2cDados.mdb"

 

 

Valeww...