Public Shared Function eQM_GetLabelOfAllFormObjects(ByVal _
      FormularOderObject As Object, ByVal Modulname As String, Optional ByVal _
      ParentListe As String = "")
        Dim r As DataRow
        Dim newObjekt As Object
        Try
            'Elemente Auslesen und Einträge in der Datatabelle erzeugen.
            For Each newObjekt In FormularOderObject.controls
                'Neuer Eintrag im Dataset erzeugen
                r = eQM_cls_Login.objt_ds_Login.tblElement.NewtblElementRow
                r("ParrentModulUndElemente") = Modulname & _
                  FormularOderObject.name '& FormularOderObject.parrent & 
                ' FormularOderObject.name
                r("Modul") = Modulname
                r("Element") = FormularOderObject.name
                eQM_cls_Login.objt_ds_Login.tblElement.AcceptChanges()
            Next newObjekt
        Catch ex As Exception
            MsgBox(ex)
        End Try
 
        Try
            'Eintragung in die Datenbank
            Dim strConn As String
            Dim sqlStr As String = "SELECT * FROM " & "tblElement"  ' "SELECT *" & _
              "FROM " & currentTabelle.TableName
            Dim DBconnection As New System.Data.OleDb.OleDbConnection()
            Dim OleDbDA As New System.Data.OleDb.OleDbDataAdapter(sqlStr, _
              DBconnection)
            Dim oCmdd As OleDb.OleDbCommandBuilder = New _
            OleDb.OleDbCommandBuilder(OleDbDA)
            Dim OleDbSelectC As New OleDb.OleDbCommand(sqlStr)
            'Verbindungsstring
            strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User" & _
              "ID=Admin;Data Source=" & _
             eQM_DbPath & Modulname & ".mdb" & _
             ";Mode=Share Deny None;Exten" & _
             "ded Properties="""";Jet OLEDB:System database="""";Jet" & _
             "OLEDB:Registry Path="""";Jet OL" & _
             "EDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet" & _
             "OLEDB:Database Locking Mode" & _
             "=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk" & _
             "Transactions=1;Jet " & _
             "OLEDB:New Database Password="""";Jet OLEDB:Create System" & _
             "Database=False;Jet OLEDB:" & _
             "Encrypt Database=False;Jet OLEDB:Don't Copy Locale on" & _
             "Compact=False;Jet OLEDB:Co" & _
             "mpact Without Replica Repair=False;Jet OLEDB:SFP=False"
 
            DBconnection.ConnectionString = strConn
            OleDbSelectC.Connection = DBconnection
            DBconnection.Open()
 
            OleDbDA.Update(eQM_cls_Login.objt_ds_Login, "tblElement")
            DBconnection.Close()
        Catch ex As Exception
            MsgBox(ex)
        End Try
    End Function

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)