Set cn = CreateObject("ADODB.Connection")
strCn = "driver=MySQL ODBC 5.1 Driver;" & _
        "server=192.168.1.40;" & _
        "database=bingotest;" & _
        "uid=ks;" & _
        "pwd=23092342"
        cn.Open strCn