Imports System.Data.Odbc.OdbcConnection

Public Class Test
    Inherits System.Windows.Forms.Form

+ windows form designer generated code

Private Sub Test_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
            Dim MyConString As String = "DRIVER={MySQL ODBC 3.51
Driver};" & _
            "SERVER=db.pcextreme.nl;" & _
            "DATABASE=test;" & _
            "UID=root;" & _
            "PASSWORD=pass;" & _
            "OPTION=3"
            Dim MyConnection As New
System.Data.Odbc.OdbcConnection(MyConString)

            MyConnection.Open()
        End Sub
    End Class