Hur gör man en koppling till en Access 2000 databas?

Jag vill kunna lägga till info, radera och visa info från databasen.

/Mvh Emil Ö

Så här skulle en koppling kunna se ut om du använder ms jet4.0

Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & MapPath("mbdFile.mdb")
cRs.Open "Select * from myTable", conn, adOpenDynamic, adLockOptimistic, adCmdText

Leif P

När jag testar din databas koppling får jag bara ett felmeddelande om att det är fel på denna rad:

Dim conn As New ADODB.Connection

vad kan det vara för fel?

Du har inte lagt till referenser till ADO. Gå in under References... på projekt menyn och kryssa för "Microsoft ActiveX Data Objects 2.5 Library".

Ok, tack för hjälpen båda två ;)

Hur skriver om jag vill ha två knappar som bläddrar framåt och bakåt
bland posterna om jag har de synliga i label.caption

Om man spinner vidare på ovanstående inlägg så..

Sub cmdForward_Click()
cRs.MoveNext ' hoppar till nästa post. om det finns någon.
label1.caption=cRs.Fields(1)
End Sub

Sub cmdBack_Click()
cRs.MovePrevious ' hoppar en post bakåt. - " " -
label1.caption=cRs.Fields(1)
End Sub

Typ nåt sånt kanske?

/Magnus

Private Sub command1_Click()
If Not crs.EOF Then
ocrs.MoveNext
If crs.EOF Then
crs.MovePrevious
End If
End If
End Sub