Adgang til Access

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

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

'** Udskrivning **
    Connection
    strSQL = "SELECT * FROM tabel"
    Set objRs = objConn.Execute (strSQL)

    objRs("navn")

    objConn.Close

//>Rune

Rigtigt Rune - vidste det jo egenligt godt *gg* for mange timer i dag.

*G* fair nok :-)
Thx 4 Poinz

//>Rune