' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!
 
Private Sub Command1_Click()
Dim DB As ADODB.Connection
 
Set DB = New ADODB.Connection
 
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.Jet.OLEDB.4.0"
DB.Open "C:\Deine.mdb"
 
DB.Execute "Alter Table DeineTabelle Alter Column DeinFeldName Double"
 
End Sub