Private Sub cmd_Add_Ort_Click()
 
Dim NeuerOrt As String
 
NeuerOrt = Text2.Text
 
Set DB = New ADODB.Connection
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.Jet.OLEDB.4.0"
DB.Open "C:\Windows\Desktop\Test\daten.mdb"
 
 
DB.Execute "Alter Table RV ADD  NeuerOrt  Integer;"
 
End Sub