Dim connetionString As String
        Dim connection As SqlConnection
        Dim adapter As New SqlDataAdapter
        Dim sql As String
        connetionString = "Server=" + My.Computer.Registry.GetValue _
            ("HKEY_CURRENT_USER\Software\KundenDB", "instanz", Nothing) + _
            ";User ID=" + My.Computer.Registry.GetValue _
            ("HKEY_CURRENT_USER\Software\KundenDB", "user", Nothing) + ";Pwd=" _
            + My.Computer.Registry.GetValue _
            ("HKEY_CURRENT_USER\Software\KundenDB", "pass", Nothing) + _
            ";Initial Catalog=kundendaten"
 
        connection = New SqlConnection(connetionString)
        sql = "SELECT....."
        Try
            connection.Open()
            adapter.SelectCommand = New SqlCommand(sql, connection)
            If ????
                MessageBox.Show("Login erfolgreich!")
            Else
                MessageBox.Show("Benutzername oder Passwort falsch!")
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try