Sure...Below is my code:
Private Sub Command0_Click()
Dim db As Database
Dim db1 As Database
Dim wrkJet As Workspace
Dim SQL As String
Dim SQL1 As String
Set wrkJet = CreateWorkspace("NewJetWorkspace", _
"admin", "", dbUseJet)
Set db = wrkJet.OpenDatabase("C:\Documents and Settings\Original_Test.mdb")
Set db1 = wrkJet.OpenDatabase("C:\Documents and Settings\Copy_Test.mdb")
SQL1 = "INSERT INTO tblUser select user,dept, group from tblMaster where user = '" & txtUserID & "'"
db1.Execute SQL1
End Sub
Thanks!!
|