Public DB_Kunden As ADODB.Connection
Public Kundentabelle As ADODB.Recordset
 
 
Sub verbindung()
 
Set DB_Kunden = New ADODB.Connection
DB_Kunden.Provider = "Microsoft.Jet.OLEDB.4.0"
DB_Kunden.Open ("H:\Schulse alda\Hausarbeit\Datenbanken\Testdatenbank.mdb")
 
 
 
End Sub
 
 
Sub oeffnen()
 
Set Kundentabelle = New ADODB.Recordset
Kundentabelle.Open "Kunden", DB_Kunden, adOpenDynamic, adLockOptimistic
 
End Sub
 
Sub schreiben()
 
Kundentabelle.MoveLast
Kundentabelle.AddNew
Kundentabelle!Titel = comb_titel.Text
Kundentabelle!Anrede = comb_anrede.Text
Kundentabelle!Name = txt_cl_name.Text
Kundentabelle!Vorname = txt_cl_prename.Text
Kundentabelle!Strasse = txt_cl_street.Text
Kundentabelle!Hausnummer = txt_cl_number.Text
Kundentabelle!PLZ = txt_cl_zip.Text
Kundentabelle!Stadt = txt_cl_city.Text
Kundentabelle!Telefon = txt_cl_phone.Text
 
Kundentabelle.Update
 
End Sub
 
Sub schliessen()
 
DB_Kunden.Close
Set DB_Kunden = Nothing
 
End Sub