Sub auslesen()
        Try
 
            Dim cmd As New MySqlCommand
            Dim adapter As New MySqlDataAdapter
            Dim data as New DataTable
            Dim strSQL As String = "SELECT * FROM steuerung WHERE 'id'='2';"
            Con.ConnectionString = sqlConnString
            Con.Open()
            Dim cmd As MySqlCommand = New MySqlCommand(strSQL, Con)
            adapter.SelectCommand = cmd
            adapter.Fill(data)
 
 
        Catch ex As Exception
            MsgBox("Fehler beim auslesen der datenbank")
        End Try
        Con.Close()
    End Sub