mycon = New Odbc.OdbcConnection
        mycon.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & _
          MyHost & ";DATABASE=" & MyDB & ";UID=root;PASSWORD=" & MyPasswort & _
          ";OPTION=2049;TIMEOUT=9999;Allow Big Results=Yes;"
        mycon.Open()

  Dim mycon As New MySql.Data.MySqlClient.MySqlConnection
        mycon.ConnectionString = "Persist Security" & _
          "Info=False;database=onlorg_pluskonzept;server=ps-vision.de;Connect" & _
          "Timeout=30;user id=root; pwd=scorpion"
        mycon.Open()