' Prozedur zum Einfügen der Daten aus dem AccessDataSet in die MSDE
  Private Sub Vmi_Users()
 
    Dim conn As New SqlConnection(connectionstring)
 
    Dim aSelCmd As New OleDbCommand("SELECT * FROM Vmi_Users", aconn)
    ada.SelectCommand = aSelCmd
    ada.AcceptChangesDuringFill = False
 
    Dim cmd As New SqlCommand("SET IDENTITY_INSERT " & dbname & ".dbo." & "" & _
      "Vmi_Users ON", conn)
 
    Dim UseCmd As New SqlCommand("USE lkh", conn)
 
    LeereTabelle("Vmi_Users")
 
    Try
      aconn.Open()
      ada.Fill(ads, "Vmi_Users")
      aconn.Close()
 
      Dim dt As DataTable = ads.Tables("Vmi_Users")
 
      LeereTabelle("His_ReportUserLink")
 
      conn.Open()
      UseCmd.ExecuteNonQuery()
      cmd.ExecuteNonQuery()
 
      Dim isql = "INSERT INTO " & dbname & ".dbo." & " Vmi_Users( uUserID," & _
        "uLangIDC , uUserGroupID , uCountryIDC ," & _
                "uLimitAttempts , uLogonAttempts , uLastAttempt ," & _
                "uLockOutPeriod , uUserTypeID ," & _
                "uUserName, uLogonName, uPassword, uEMail, uImagePath," & _
                "uDistanceSpeed, uDistanceLength," & _
                "uWeight, uPressure, uCurrency, uTemperature," & _
                "uShortDistanceLength, uLongDistanceLength," & _
                "uDate, uTime, uDateTime, uGMTOffsetGroupID, uFuelunits," & _
                "uSMSNo, uFaxNo, uMachineID," & _
                "uStart, uEnd, uCreationID, uCreationDate, uModifierID," & _
                "uModDate, uDeleted, uFloatPointFormat," & _
                "uDecimalSeperator, uThousandSeperator, uStartUpSettingsFile," & _
                "uVolume, uActivityPolling," & _
                "uDeviceStatusPolling, uLiveTrackDBPollInterval) VALUES " & _
                "( @p0, @p1 , @p2 , @p3 , @p4 , @p5 , @p6 , @p7 , @p8 , @p9 ," & _
                "@p10 , @p11 , @p12 , @p13, @p14," & _
                "@p15, @p16 , @p17 , @p18 , @p19 , @p20 , @p21 , @p22 , @p23 ," & _
                "@p24 , @p25 , @p26 , @p27 , @p28," & _
                "@p29, @p30 , @p31 , @p32 , @p33 , @p34 , @p35 , @p36 , @p37 ," & _
                "@p38 , @p39 , @p40 , @p41 , @p42," & _
                "@p43, @p44)"
 
      Dim icmd As New SqlCommand(isql, conn)
 
      icmd.Parameters.Add("@p0", SqlDbType.Int, 4, "uUserID")
      icmd.Parameters.Add("@p1", SqlDbType.Int, 4, "uLangIDC")
      icmd.Parameters.Add("@p2", SqlDbType.Int, 4, "uUserGroupID")
      icmd.Parameters.Add("@p3", SqlDbType.Int, 4, "uCountryIDC")
      icmd.Parameters.Add("@p4", SqlDbType.Int, 4, "uLimitAttempts")
      icmd.Parameters.Add("@p5", SqlDbType.Int, 4, "uLogonAttempts")
'
'  Parameter gekürzt, wegen der Foren-Text-Beschränkung
'
 
      da.InsertCommand = icmd ' Nur INSERT notwendig hier
 
      da.Update(dt)
      cmd = New SqlCommand("SET IDENTITY_INSERT " & dbname & ".dbo." & "" & _
        "Vmi_Users OFF", conn)
      cmd.ExecuteNonQuery()
    Catch ex As Exception
      MsgBox("VMI_Users" & "  " & ex.ToString())
      gui.txt.Text = ex.ToString
    Finally
      conn.Close()
      conn = Nothing
      ds.Clear()
      ads.Clear()
    End Try
 
    Vmi_ModuleUserLink()
 
  End Sub

Es ist alles eine Frage der
Relation und Perspektive.