connecte til database

'** Betingelser:
'** Reference: Microsoft ActiveX Data Objects 2.5 Library

    Dim Conn As New Connection
    Dim rs As Recordset
    Dim strSQL As String
   
  Function Connection()
      Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\DB.mdb"
  End Function

'** Udskrivning **
    Connection
    strSQL = "SELECT * FROM tabel"
    Set rs = Conn.Execute (strSQL)

    rs("navn")

    Conn.Close

//>Rune

den gåer allerede i stå i 1. linie og markerer
Conn As New Connection

Har du husket at tilføje referencen?

//>Rune

hvad mener du med referencen?

Du skal gå op i Project -> References -> og vinke Microsoft ActiveX Data Objects 2.5 Library af ;o)

//>Rune

aha, nu virker det hele lige pludselig :)
takker

Anytime...
Thx 4 Poinz

//>Rune