åbn acces base med password

is it a database or user password?

include this in your connection string

; Jet OLEDB:Database Password=YourPassword

Ok. Men jeg har jo bare lavet en data control.

Data1.DatabaseName = App.Path & "\databasenavn.mdb" skriver jeg i form.load sådan at programmet kan finde databasen uanset hvor det er installeret. Hvad skriver jeg helt præcist for at connecte. ?

are you using ADO or DAO?

don't know...

data control fra toolbox'en og så ikke andet...

OK, can you send me your dB and VB app. and I will take a look and put something together for you? eksperten@santhell.dk

kig lige på denne lille funktion

Public Function OpenDatabase(DBPath As String, Optional DBUser As String = "admin", Optional DBPassword As String = "", Optional Exclusive As Boolean = False, Optional ReadOnly As Boolean = False) As Long
   
'returns zero on success
'if no success returns errorcode

  On Error GoTo ErrHandler
   
  Set dtaWS = CreateWorkspace("dtaWS", DBUser, "", dbUseJet)
  Set dtaDB = dtaWS.OpenDatabase(DBPath, Exclusive, ReadOnly, ";pwd=" & DBPassword)
   
  ' No errors DB was opened succesfully
  OpenDatabase = 0
  On Error GoTo 0

Exit Function
   
ErrHandler:
   
  ' An error was reported. Return the error code.
  OpenDatabase = Err
  On Error GoTo 0
   
End Function

'fungerer hvis du bruger DAO

//vbcoder

vbcoder>an answer has been sent!

Dim YourdB As DAO.Database
Dim str As String

    str = App.Path & "\db1.mdb"
   
    Set YourdB = OpenDatabase(str, False, False, ";Pwd=kode")

    Set Data1.Recordset = YourdB.OpenRecordset("SELECT * from tabel1")

jeps jeg har dim'met

database og workspace som public variabler

ellers er det jo stort set samme kode ;)

//vbcoder