hier ein auszug meines programmes, dabei bekommen ich fehlern aber ich möchte dass in nen textbox den ersten Eintrag.
müsste so was heissen wie
feld.textbox=rs.movefirst
dabei bekomme ich ne Fehlermeldung Funktion oder Variable erwartet
kann mir jemand dabei helfen???
danke
Option Explicit
Dim Cn As New ADODB.Connection
Private Sub Form_Load()
With Cn
.CursorLocation = adUseClient
.Mode = adModeShareDenyNone
' DB-Provider (Access 2000)
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=d:\test.mdb"
.Open
End With
Dim Rs As New ADODB.Recordset
With Rs
.CursorType = adOpenKeyset
.LockType = adLockPessimistic
.Open "SELECT Name FROM gruppe", Cn
End With
End Sub