Försöker skapa en ODBC/DSN till en Accessdatabas (DB.mdb) från VB6 med nedanstående kod som jag hittat på nätet.
DSN:n skapas, men ingen "länkning" till databasen utan den måste "bläddras" fram.
Jag har utgått från att sökvägen skall anges på raden ... "DATABASE=.......


Dim strDriver As String
Dim strAttributes As String


strDriver = "Microsoft Access Driver (*.mdb)"

strAttributes = "SERVER=SomeServer" & Chr$(0)
strAttributes = strAttributes & "DESCRIPTION=Temp DSN" & Chr$(0)
strAttributes = strAttributes & "DSN=DSN_TEMP" & Chr$(0)
strAttributes = strAttributes & "DATABASE=" & App.Path & "\DB.mdb" & Chr$(0)
intRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, _
strDriver, strAttributes)

Har jag gjort något tankefel eller är det något jag missat. Kan det vara ...SERVER=... som är fel ?

/CJE

Om du kör lokalt, ska servern vara lika med "localhost".

Om du ändå kör lokalt kan du istället ansluta till databasen så här:

Ange först en referens till DAO-objektet (Project, References och välj Microsoft DAO 3.6...)

Dim db As DataBase
Dim rs As RecordSet

Private Sub Form_Load()
  Set db = OpenDatabase("sökväg till databasen")
  Set rs = db.OpenRecordset("SQL-fråga)
End Sub