Dim cnMy As New ADODB.Connection
        Dim strSQLMy As String
        Dim cnMS As New ADODB.Connection
        Dim rs As New ADODB.Recordset
        Dim strSQLMs As String

        cnMy.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=94.100.86.13;PORT=3306;DATABASE=sproot; USER=sproot;PASSWORD=;OPTION=3;")
        cnMS.Open("ODBC;DSN=SPRUT;UID=sa; PWD=; DATABASE=SPRUT")
        
        strSQLMs = "SELECT * FROM ListSpec"
        rs.Open(strSQLMs, cnMS, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
        rs.MoveFirst()
        While (rs.EOF = False)
            strSQLMy = "INSERT INTO ListSpec (SpecCode,SpecText,uid) Values (" & rs![SpecCode] & "," & rs![SpecText] & "," & rs![uid] & ")"
            cnMy.Execute(strSQLMy)
            rs.MoveNext()
        End While

           strSQLMy = "INSERT INTO ListSpec (SpecCode,SpecText,uid) Values (" & rs.Fields("SpecCode").Value & ",'" & rs.Fields("SpecText").Value & "'," & rs.Fields("uid").Value & ")"