Call DoInsert()

Sub DoInsert()

    Dim objArgs 
    Dim sDb
    Dim CurrentUser
    Dim Client 
    Dim Phone 
    Dim City
    Dim Village
    Dim MDistrict
    Dim Street
    Dim HouseNumber
    Dim HouseCorp
    Dim PostalCode
    Dim District
Dim ID
    

    Set objArgs = WScript.Arguments 
    sDb = objArgs(0)
    CurrentUser = objArgs(1)
    Client = objArgs(2)
    Phone = objArgs(3)
    City = objArgs(4)
    Village = objArgs(5)
    MDistrict = objArgs(6)
    Street = objArgs(7)
    HouseNumber = objArgs(8)
    HouseCorp = objArgs(9)
    PostalCode = objArgs(10)
    District = objArgs(11)
    ID = objArgs(12)

    sDb = Mid(sDb, 2)
    CurrentUser=Mid(CurrentUser,2)
    Client= Mid(Client,2)
    Phone= Mid(Phone,2)
    City= Mid(City,2)
    Village= Mid(Village,2)
    MDistrict= Mid(MDistrict,2)
    Street= Mid(Street,2)
    HouseNumber= Mid(HouseNumber,2)
    HouseCorp= Mid(HouseCorp,2)
    PostalCode= Mid(PostalCode,2)
    District= Mid(District,2)
    ID= Mid(ID,2)  
    Dim Con 'объект Connection
    Set Con = CreateObject("ADODB.Connection") 'создание объекта Connection
    Con.Mode = 3      

    Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDb & ";Persist Security Info=False"

    Set rstA = CreateObject("ADODB.Recordset") 'создание объекта Recordset
   
       If rstA.State = 1 Then 'if open
    	rstA.Close 'закрываем ранее открытый набор записей
    End If
     sSql = "SELECT * FROM tblMain WHERE Client= '" & Client & "' AND Phone='" & Phone & "' AND City='" & City & "';"
     rstA.Open sSql, Con 'открытие набора записей
	MsgBox sSql
      If rstA.EOF=TRUE Then 
	  sSql="INSERT INTO tblMain (Client, Phone, City, Village, MDistrict, Street, HouseNumber, HouseCorp, PostalCode, District) VALUES ('" & Client& "', '" & Phone & "', '" & City & "', '" & Village & "', '" & MDistrict & "', '" & Street & "', '" & HouseNumber & "', '" & HouseCorp & "', '" & PostalCode & "', '" & District & "'  )"
	  Con.Execute sSql
	MsgBox sSql
	End If

	sSql="UPDATE tblClientOrders SET ClientID= (SELECT ID FROM tblMain WHERE Client='" & Client & " ' AND Phone='" & Phone & "' AND City='" & City & "') WHERE ID=" & ID & ";"
MsgBox sSql	
Con.Execute sSql 	
	rstA.Close	
    Set rstA = Nothing
    Set rstB = Nothing
    Set Con = Nothing
End Sub