Private Sub Form_Load()
Dim dbpassword As String
pathname = "http://www.warfare02.kilu.de/Anschriften.mdb"
dbpassword = "xxxx"
Set db = OpenDatabase(pathname, False, False, ";Pwd=" & dbpassword)
Set tb_artikel = db.OpenRecordset("Artikel")
Set tb_setup = db.OpenRecordset("Setup")
Set tb_lieferant = db.OpenRecordset("Lieferant")
tb_artikel.MoveFirst
datensatz_zeigen
frm_netto_brutto.Visible = False
text_leer
End Sub