Dim dt As New DataTable
        Dim schemacmd As New SqlClient.SqlCommand
        Dim con As SqlClient.SqlConnection = New SqlClient.SqlConnection( _
          "Server=localhost\SQLEXPRESS;Database=DB_Aanalyzer;Integrated" & _
          "Security=SSPI")
 
        'Schema prüfen
        schemacmd.CommandText = "select * from Motor"
        schemacmd.Connection = con
 
        Dim da As New SqlClient.SqlDataAdapter(schemacmd)
        da.FillSchema(dt, SchemaType.Mapped)
 
        Dim strOrderID As String = System.Guid.NewGuid.ToString
        Try
            con.Open()
            Dim GeraeteNr As String = lbGN.Text
            Dim Fabrikat As String = lbFabrikat.Text
            Dim Typ As String = lbTyp.Text
 
            Dim Bauform As String = lbBauform.Text
            Dim Leistung As String = lbLeistung.Text
            Dim Drehzahl As String = lbDrehzahl.Text
            Dim Nennspannung As String = lbNSp.Text
 
            Bs.EndEdit()
 
            'Data Adapter updaten  in Datenbank 
            da.Update(dt)
 
            'Verbindung schließen
            con.Close()
 
        Catch ex As Exception
 
            'Bei Fehlern Messagebox 
            MessageBox.Show(ex.Message.ToString)
 
        End Try