Module login
Sub login_()
 
        Try
            Start.con.ConnectionString = "server=" + Start.Server.Text + _
              ";user" & _
              "id=" + Start.User.Text + ";password=" + Start.Passwort.Text + _
              ";database=" + Start.Datenbank.Text
            Start.cmd.Connection = Start.con
            Start.log_in.Tag = 1
        Catch ex As MySql.Data.MySqlClient.MySqlException
            Select Case ex.Number
                Case 0
                    MessageBox.Show("Es ist keine Verbindung zum Server" & _
                      "möglich!", "Verbindungsfehler", MessageBoxButtons.OK, _
                      MessageBoxIcon.Error)
                    Start.log_in.Tag = 0
                Case 1
                    MessageBox.Show("Falscher Username oder Passwort!" & _
                      "Überprüfen Sie Ihre Angaben!", "Verbindungsfehler", _
                      MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Start.log_in.Tag = 0
            End Select
        End Try
    End Sub
End Module
Module list_lesen
 Sub test()
 
        Start.ListBox1.Visible = True
 
        Try
            Start.con.Open()
            Start.cmd.CommandText = "select * from INFORMATION_SCHEMA.TABLES"
            Start.reader = Start.cmd.ExecuteReader
            Start.ListBox1.Items.Clear()
            Do While Start.reader.Read
                Start.ListBox1.Items.Add(Start.reader(2))
            Loop
            Start.reader.Close()
            Start.con.Close()
        Catch ex As Exception
            Start.con.Close()
            MsgBox(ex.Message)
        End Try
 
        Start.DataGridView1.Visible = False
    End Sub
 
End Module