Dim connString As String = "Data Source=(" & _
   "LocalDB)\v11.0;AttachDbFilename=|DataDirectory|\FiBUDB.mdf;Integrated" & _
   "Security=True"
        Dim conn As New SqlClient.SqlConnection(connString)
        Dim cmd As New SqlClient.SqlCommand
        cmd.Connection = conn
 
        Try
            conn.Open()
            cmd.CommandText = "insert into dbo.Namen (Vorname, Nachname) VALUES" & _
              "('Max', 'Mustermann')"
            cmd.ExecuteNonQuery()
                        conn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
            conn.close
        End Try