'Datenbank Abfrage 2
Dim command2 As New SqlClient.SqlCommand
Dim adapter2 As New SqlClient.SqlDataAdapter
Dim dataset2 As New DataSet
Dim sqlconnect As New SqlClient.SqlConnection
sqlconnect.ConnectionString = ("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Database1.mdf;Integrated Security=True;User Instance=True")
msg("SQL Verbindung gestartet")
command2.CommandText = "SELECT password FROM [user] WHERE username='" & login_data(0) & "';"
sqlconnect.Open()
command2.Connection = sqlconnect
adapter2.SelectCommand = command2