Imports ByteFX.Data.MySqlClient
 
.
.
.
..
 
'Connection-String bilden
                        Dim CNString As String
                        CNString = "Database=" & DB & ";Data Source=" & IP & _
                          ";User Id=" & User & ";Password=" & PWD & ""
                        'Connection und Adapter erstellen, Connection öffnen
                        Dim cn As New MySqlConnection(CNString)
                        Dim adapter As New MySqlDataAdapter(SQLStatement, _
                          CNString)
                        cn.Open()
                        adapter.Fill(DataTable)
                        DataTable.Columns("ID").AutoIncrement = True
                        For Each c As DataColumn In DataTable.Columns
                            c.AllowDBNull = True
                        Next
                        cn.Close()
                        adapter.Dispose()
                        Return DataTable
                        DataTable.Dispose()