Module Module1
 
    Public Function connect(ByVal username As String, ByVal password As String, _
      ByVal datenbank As _
  String, ByVal host As String, ByVal port As String)
 
        Dim conn As OdbcConnection
 
        Dim connstr As String
 
        connstr = String.Format("server={0};user id={1}; password={2};" & _
          "database={3}; port={4}; pooling=false", host, username, password, _
          datenbank, port)
 
        conn = New OdbcConnection(connstr)
 
        Try
 
            conn.Open()
 
        Catch ex As Exception
 
            MsgBox(ex.Message, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _
              "Fehler aufgetreten!")
 
        End Try
 
        Return conn
 
    End Function
 
    Public Function read(ByVal table As String, ByVal argument As String, ByVal _
      spalten As String, _
  ByVal conn As OdbcConnection)
        Dim data As DataTable
        Dim da As OdbcDataAdapter
        Dim waserror As String = False
 
        data = New DataTable(table)
        da = New OdbcDataAdapter("SELECT " + spalten + " FROM " + table + " " + _
          argument, conn)
 
        Try
            da.Fill(data)
        Catch ex As Exception
            If (Regex.IsMatch(ex.Message, "Table(.*) doesn't exist", _
              RegexOptions.IgnoreCase Or _
  RegexOptions.Singleline)) Then
                MsgBox("In dieser Datenbank wurden keine Tabellen gefunden", _
                  MsgBoxStyle.Information _
  + MsgBoxStyle.OkOnly)
                waserror = True
            Else
                MsgBox(ex.Message)
            End If
        End Try
 
        Return data
    End Function
 
End Module

 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim Connection1 As System.Data.Odbc.OdbcConnection = connect( _
        "BENUTZER", "PASSWORT", "DATENBANKNAME", "localhost", "3306")
        TextBox1.Text = read("TABELLE", "ID = 1", "Name", Connection1).ToString
 
    End Sub