Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
 
 
Private Sub cmdFirst_Click()
InitConnection2000 ("X:\Dokumente und Einstellungen\herich\Eigene" & _
  "Dateien\vb6\adoubung\db1.mdb")
InitTable (tbl_Artikel)
Rs.MoveFirst
Load
TerminateConnection
End Sub
 
Private Sub cmdLast_Click()
InitConnection2000 ("X:\Dokumente und Einstellungen\herich\Eigene" & _
  "Dateien\vb6\adoubung\db1.mdb")
InitTable (tbl_Artikel)
Rs.MoveLast
Load
TerminateConnection
End Sub
 
Private Sub cmdNext_Click()
InitConnection2000 ("X:\Dokumente und Einstellungen\herich\Eigene" & _
  "Dateien\vb6\adoubung\db1.mdb")
InitTable (tbl_Artikel)
 
Rs.MoveNext
If Rs.EOF Then
Rs.MoveLast
End If
Load
TerminateConnection
 
End Sub
 
Private Sub cmdPref_Click()
InitConnection2000 ("X:\Dokumente und Einstellungen\herich\Eigene" & _
  "Dateien\vb6\adoubung\db1.mdb")
InitTable (tbl_Artikel)
Rs.MovePrevious
If Rs.BOF Then
Rs.MoveFirst
End If
Load
TerminateConnection
End Sub
 
Private Sub Load()
'txtArtikelbez.Text = Tb!Artikelname
'Combo2.Text = Tb!ZubehörID
txtArtikelbez.Text = ReadDataRecord("Artikelname")
'txtArtikelbez.Text = ReadDataRecord
End Sub
 
Public Sub InitConnection2000(Filename As String)
 Cn.Provider = "Microsoft.Jet.OLEDB.4.0" 'Access2000
 Cn.ConnectionString = "X:\Dokumente und Einstellungen\herich\Eigene" & _
   "Dateien\vb6\adoubung\db1.mdb" 'Datenbankpfad
 
 Cn.CursorLocation = adUseClient
 Cn.Mode = adModeReadWrite 'Zum Lesen und Schreiben oeffnen
 
 Cn.Open
End Sub
 
Public Sub TerminateConnection()
 If Cn.State = adStateOpen Then 'Wenn Verbindung besteht
 
  Cn.Close  'Verbindung trennen
  Set Cn = Nothing 'Objekt löschen
 End If
End Sub
 
Public Sub InitTable(tblName As String)
 'InitConnection2000 ("G:\Dokumente und Einstellungen\Bert\Eigene" & _
   "Dateien\vb6\ado\db1.mdb")
 Set Rs.ActiveConnection = Cn 'aktive Verbindung zuweisen
 Rs.LockType = adLockOptimistic
 Rs.Source = "tbl_Artikel" 'ganze Tabelle
 Rs.Open 'Tabelle öffnen
End Sub
 
Public Function ReadDataRecord(fldName) As Variant
   'Wert anhand des Feldnamens auslesen
  If Not IsNull(Rs.Fields(fldName).Value) Then
 
    ReadDataRecord = Rs.Fields(fldName).Value
 
  End If
 
End Function
 
Public Sub NewDataRecord()
 
  'Rs.AddNew 'Neuen Datensatz erzeugen
 
  'Beispiele für Zuweisung von Werten an Tabellenfelder
  'Rs.Fields("Artikelname") = "" 'txtArtikelbez.Text
  'Rs.Fields("Feld2") = "Wert2"
  'Rs.Fields("Feld3") = "Wert3"
 
  'Rs.Update 'Neuen Datensatz anlegen und Tabelle aktualisieren
 
End Sub
 
Private Sub Command1_Click()
Send
TerminateConnection
End Sub
 
Private Sub Form_Load()
InitConnection2000 ("X:\Dokumente und Einstellungen\herich\Eigene" & _
  "Dateien\vb6\adoubung\db1.mdb")
InitTable (tbl_Artikel)
Load
TerminateConnection
End Sub
 
Private Sub cmdAdd_Click()
InitConnection2000 ("X:\Dokumente und Einstellungen\herich\Eigene" & _
  "Dateien\vb6\adoubung\db1.mdb")
InitTable (tbl_Artikel)
Rs.AddNew
Clear
txtArtikelbez.SetFocus
TerminateConnection
End Sub
 
Private Sub Clear()
txtArtikelbez.Text = ""
'Combo2.Text = ""
End Sub