Public Function DB_UPDATE_INSERT(ByVal sql As String) As Integer
        Dim DBConn As OleDbConnection
        Dim DBInsert As New OleDbCommand
 
        DBConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DATA" & _
          "SOURCE=F:\Work Dev\VSNet Dev\Test\db1.mdb")
        DBInsert.CommandText = sql
        DBInsert.CommandType = CommandType.Text
        DBInsert.Connection = DBConn
        Try
            DBInsert.Connection.Open()
            Dim cnt As Integer = DBInsert.ExecuteNonQuery()
            If cnt = 1 Then
                DBInsert.CommandText = "Select @@IDENTITY"
                Return CInt(DBInsert.ExecuteScalar())
            End If
        Catch err As System.Exception
            MsgBox(err.Message)
        Finally
            DBConn.Close()
        End Try
    End Function