sql = "insert into members (u_name,u_pass,lang_id) values ('" & strTrim & "','" _
  & str_pass & "','" & lang_id & "'); SELECT @@IDENTITY;"
                user_id = DB_UPDATE_INSERT("members", sql)
 
'Datenbank Update/INSERT SQL Abfrage
    Public Function DB_UPDATE_INSERT(ByRef table As String, ByRef sql As _
      String, Optional ByVal ident As Integer = 0)
        Try
            Dim dbCommand As OleDbCommand
            Dim DBConn As OleDbConnection
            Dim strDept, strPath As String
            Dim DBInsert As New OleDbCommand
 
            strPath = Application.StartupPath & "\data\" & table & ".MDB"
 
            DBConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" _
            & "Jet OLEDB:Database Password=" & dbpass & ";" _
            & "DATA SOURCE=" _
            & strPath)
            If ident Then
                ident = DBInsert.CommandText = sql
                Return ident
            Else
                DBInsert.CommandText = sql
            End If
            DBInsert.Connection = DBConn
            DBInsert.Connection.Open()
            DBInsert.ExecuteNonQuery()
            DBConn.Close()
        Catch err As System.Exception
            MsgBox(err.Message)
        End Try
    End Function