Code:
Private Sub cmdimport_Click()
Dim i As Integer
Dim fromdb As String
Dim fromdb2 As String
Dim todb As String
On Error Resume Next
todb = "'" & Forms![AMS Import Utility].txtto & "'"
fromdb = Forms![AMS Import Utility].txtfrom
fromdb2 = "'"
Leave a comment: