Imports System.Data.OleDb
Module mdDB
    Public con As New OleDbConnection
    Public reader As OleDbDataReader
    Public cmd As New OleDbCommand
 
    Sub OpenDB(ByVal sSQL As String)
        Try
 
            con.ConnectionString =
            "Provider=MySQL Provider; Data Source=MeinServer; User ID=admin;" & _
              "Password=Blubb; Initial Catalog=rappelkiste;"
 
            cmd.Connection = con
            cmd.CommandText = sSQL
 
            con.Open()
 
            reader = cmd.ExecuteReader()
        Catch errmsg As Exception
 
            MsgBox(errmsg.Message, MsgBoxStyle.Critical)
        End Try
 
    End Sub
End Module