Hallo, das kannst Du wesentlich einfacher machen:

' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!

 

Dim DB As ADODB.Connection

Dim RS As ADODB.Recordset

 

Private Sub Form_Load()

Set DB = New ADODB.Connection

 

DB.CursorLocation = adUseClient

DB.Provider = "Microsoft.Jet.OLEDB.4.0"

DB.Open "d:\db1.mdb"

 

' wenn das Feld Postleitzahl ein Textfeld ist:

DB.Execute "SELECT * INTO NeueTabelle FROM AlteTabelle where Postleitzahl='4711'"

 

' wenn das Feld Postleitzahl ein Zahlenfeld ist:

DB.Execute "SELECT * INTO NeueTabelle FROM AlteTabelle where Postleitzahl=4711"

 

End Sub

 

geschrieben von wincnc , 27.09.2005, 11:06 Uhr , 28 mal gelesen