Imports System.Data.SqlClient
Imports System.Data.Common
 
Public Class Form1
    Private Sub Beenden_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Beenden.Click
        Me.Close()
        Me.Dispose()
    End Sub
 
    Private Sub Verbinden_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Verbinden.Click
        Dim con As New SqlConnection
        'Dim cmd As New SqlCommand
        'Dim reader As SqlDataReader
 
        Try
            con.ConnectionString = "Data" & _
              "Source=.\MSSQLSERVER;AttachDbFilename=c:\Program Files\Microsoft" & _
              "SQL" & _
              "Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\Bücher.mdf;Integrated" & _
              "Security=True;Connect Timeout=30;User Instance=True"
            con.Open()
            Label2.Text = con.State.ToString
        Catch ex As Exception
            MsgBox("Datenbankfehler aufgetreten")
        End Try
    End Sub
End Class