Public Shared Function Insert(ByVal INSERTString As String, ByVal _
          ParamArray Value() As Object) As Integer
            Dim Trans As OleDbTransaction
            Dim CmdGetLfdNr As OleDb.OleDbCommand
            Try
                TheCommand = con.CreateCommand()
                If isGlobalTransaction Then
                    TheCommand.Transaction = GlobalTransaction
                Else
                    Trans = con.BeginTransaction
                    TheCommand.Transaction = Trans
                End If
 
                TheCommand.CommandText = INSERTString
 
                Dim arTemp() As String, arFields() As String
                arTemp = INSERTString.Split("(")
                arTemp = arTemp(1).Split(")") ' in (1) steht der teil nach der 
                ' ersten (
                arFields = arTemp(0).Split(",") ' in (0) steht alles vor der 
                ' ersten )
 
                For x As Integer = 0 To arFields.Length - 1
                    TheCommand.Parameters.Add( _
                    New System.Data.OleDb.OleDbParameter( _
                    arFields(x).Trim(" "), GetOleType(Value(x)), 0, arFields( _
                    x).Trim(" "))).Value = Value(x)
                Next
 
                TheCommand.ExecuteNonQuery()
 
                If Not isGlobalTransaction Then
                    Trans.Commit()
                End If
 
                ' die LfdNr des neuen datensatzes holen und zurückgeben
                CmdGetLfdNr = New OleDb.OleDbCommand("SELECT @@identity", con)
                Return CmdGetLfdNr.ExecuteScalar()
 
            Catch ex As Exception
                If Not isGlobalTransaction Then
                    Trans.Rollback()
                End If
                Throw ex
            Finally
                CmdGetLfdNr.Dispose()
            End Try
        End Function
 
        Private Shared Function GetOleType(ByVal obj As Object) As OleDbType
            If TypeOf obj Is System.Int32 Or TypeOf obj Is System.Int64 Or _
              TypeOf obj Is System.Byte Then
                Return OleDbType.Integer
            ElseIf TypeOf obj Is System.IO.MemoryStream Or TypeOf obj Is _
              System.Array Then
                Return OleDbType.VarBinary
            ElseIf TypeOf obj Is String Then
                Return OleDbType.BSTR
            Else
                MessageBox.Show("der typ " & obj.GetType.ToString() & " wurde" & _
                  "nicht erkannt")
            End If
        End Function

Dim ID as integer = Insert ("Insert INTO Table (Field)", New Object {"Wert"})