macOS vb 6.0 to AppleScript

Private Sub Command1_Click()
Dim ADOCn As ADODB.Connection
Dim ConnString As String
Dim sSQL As String
Dim iStart As Integer
Dim Text
    Dim iEnd As Integer
    iStart = 0
    iEnd = 0

ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source= C:\Users\bob\Desktop\UPC\games.mdb;" & _
        "Persist Security Info=False"

Set ADOCn = New ADODB.Connection
ADOCn.ConnectionString = ConnString
ADOCn.Open ConnString
Do While WebBrowser1.Busy = True
        DoEvents
        Sleep 500
    Loop
    Set hDoc = WebBrowser1.Document
    Set hInp = hDoc.getElementById("upc")
    'hInp.focus
    'hInp.Value = "02881920"
    'SendKeys "{ENTER}", True
    'Find the UPC
    iStart = InStr(1, hDoc.body.innerHTML, "<TD>upc</TD>") + 37
    iEnd = InStr(iStart, hDoc.body.innerHTML, "</TD></TR>")
    'MsgBox upc
    MsgBox Mid$(hDoc.body.innerHTML, iStart, iEnd - iStart)
    Text1.Text = Mid$(hDoc.body.innerHTML, iStart, iEnd - iStart)
    Do While WebBrowser1.Busy = True
        DoEvents
        Sleep 500
    Loop
Set hInp = Nothing
    'Parse the elements and read the values of the data returned
    'Set document variable = to the new results documents page
    Set hDoc = WebBrowser1.Document
    'Find the description:
    iStart = InStr(1, hDoc.body.innerHTML, "<TD>Description</TD>") + 37
    iEnd = InStr(iStart, hDoc.body.innerHTML, "</TD></TR>")
    MsgBox Mid$(hDoc.body.innerHTML, iStart, iEnd - iStart)
    Text2.Text = Mid$(hDoc.body.innerHTML, iStart, iEnd - iStart)
    'Find the Size/Weight:
    iStart = InStr(iStart, hDoc.body.innerHTML, "<TD>Size/Weight</TD>") + 37
    iEnd = InStr(iStart, hDoc.body.innerHTML, "</TD></TR>")
    MsgBox Mid$(hDoc.body.innerHTML, iStart, iEnd - iStart)
    Text3.Text = Mid$(hDoc.body.innerHTML, iStart, iEnd - iStart)
    'Find Manufacturer:
    'iStart = InStr(iStart, hDoc.body.innerHTML, "<TD>Manufacturer</TD>") + 38
    'iEnd = InStr(iStart, hDoc.body.innerHTML, "(<A href=")
    'MsgBox Mid$(hDoc.body.innerHTML, iStart, iEnd - iStart)
    'Text4.Text = Mid$(hDoc.body.innerHTML, iStart, iEnd - iStart)
    'Find the Entered/Modified:
    'iStart = InStr(iStart, hDoc.body.innerHTML, "<TD>Entered/Modified</TD>") + 42
    'iEnd = InStr(iStart, hDoc.body.innerHTML, "</TD></TR>")
    'MsgBox Mid$(hDoc.body.innerHTML, iStart, iEnd - iStart)
    'Text5.Text = Mid$(hDoc.body.innerHTML, iStart, iEnd - iStart)
sSQL = "INSERT INTO table " & "(UPC, Description) VALUES ('" & Text1.Text & "', '" & Text2.Text & "')"
Debug.Print sSQL
'ADOCn.Execute sSQL
End Sub

Private Sub Form_Load()
    WebBrowser1.Navigate2 "http://www.upcdatabase.com/item.pl"
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
'Dim strConn As String
'Dim strSQL As String
'strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Brandon Crocker\Desktop\SALES 1\SALES 1\Database.mdb;Persist Security Info=False"
'strSQL = "SELECT * FROM MemberDetails"
End Sub

using System;
using System.Collections.Generic;
using System.Text;
using CookComputing.XmlRpc;
using System.Xml;
 
namespace KitchenInventory  //can you guess what my software does lol...
{
 
 
    [XmlRpcMissingMapping(MappingAction.Ignore)] 
//the above line keeps missing members from casuising an error,  more info at [url]www.xml-rpc.net[/url]
// I noticed many records don’t have the mfr_comment data, so the member is NOT returned in the xml.
//
// youll still need to deal with the missing data, but at least your
// rpc call will work, FYI:  Use the Internet Exploere "Fidiler add in"
// to veiw returned data when you make a rpc call… very handy
 
    public struct upcLookupValues
    {
        public string upc;
        public int pendingUpdates;
        public bool isCoupon;
        public string ean;
        public string issureCountryCode;
        public string mfr_comment;
        public string mfr;
        public string description;
        public bool found;
        public string size;
        public string message;
        public string issureCountry;
        public string lastModified;
 
    }
 
    [XmlRpcUrl("http://www.upcdatabase.com/rpc")]
    public interface IgetHelp : IXmlRpcProxy
    {
        [XmlRpcMethod("help")]
        string upcHelp();
    }
 
    [XmlRpcUrl("http://www.upcdatabase.com/rpc")]
    public interface IlookupUPC : IXmlRpcProxy
    {
        [XmlRpcMethod("lookupUPC")]
        upcLookupValues lookupUPC(string upcCode);
    }
 
    [XmlRpcUrl("http://www.upcdatabase.com/rpc")]
    public interface IlookupEAN : IXmlRpcProxy
    {
        [XmlRpcMethod("lookupEAN")]
        upcLookupValues lookupEAN(string EANCode);
 
    }
 
    [XmlRpcUrl("http://www.upcdatabase.com/rpc")]
    public interface IconvertUPCE : IXmlRpcProxy
    {
       [XmlRpcMethod("convertUPCE")]
       string convertUPCE(string upcCode);
 
    }
 
    class lookupUPC
    {
        public static string getHelp()
        {
 
            //calls the upcdatabase.com xml server with the help paramaters, returns as string with the help...
            IgetHelp upcObj = XmlRpcProxyGen.Create<IgetHelp>();
 
            string myLookup = upcObj.upcHelp();
            return myLookup;
        }
 
        public static string convertUPCE(string upce_code)
        {
            //cals the upce_convert method, and returns the ean string…
 
            IconvertUPCE upcObj = XmlRpcProxyGen.Create<IconvertUPCE>();
 
                //turn off the xmlRpcProxy keep alive,
            // fixes the The underlying connection was closed: An unexpected error occurred on a send. 
            upcObj.KeepAlive = false;
 
 
            string myLookup = upcObj.convertUPCE(upce_code);
            return myLookup;
        }
 
        public static upcLookupValues lookupBarCode(string barCode)
        {
            string myEan;
            upcLookupValues myOutput;
            switch (barCode.Length)
            {
                case 12:
                    myOutput = getEan("0"+ barCode);
                    break;
                case 8:
                    myEan = convertUPCE(barCode);
                    myOutput = getEan(myEan);
                    break;
                default:
                    myOutput = getEan(barCode);
                    break;
 
            }
            myOutput.upc = barCode;
            return myOutput;
 
        }
        public static upcLookupValues getEan(string eanCode)
        {
 
 
            IlookupEAN upcObj = XmlRpcProxyGen.Create<IlookupEAN>();
 
            //turn off the xmlRpcProxy keep alive,
            // fixes the The underlying connection was closed: An unexpected error occurred on a send. 
            upcObj.KeepAlive = false;
            //phone 821793000080
            upcLookupValues upcOutput = upcObj.lookupEAN(eanCode);
 
 
            return upcOutput;
        }
 
        public static upcLookupValues getUpc(string upcCode)
        {
            //this method depricated, but still works, I now padd a 0 on the begging of the UPCA code and use getEAN method
 
            IlookupUPC upcObj = XmlRpcProxyGen.Create<IlookupUPC>();
 
            //turn off the xmlRpcProxy keep alive,
            // fixes the The underlying connection was closed: An unexpected error occurred on a send. 
            upcObj.KeepAlive = false;
 
            upcLookupValues upcOutput = upcObj.lookupUPC(upcCode);
 
 
            return upcOutput;
        }
    }
 
}