Write to a Non-Notes Database

Sub Click(Source As Button)
     Dim workspace As New NotesUIWorkSpace
     Dim uidoc As NotesUIDocument
     Set uidoc = workspace.currentdocument
     Dim doc As NotesDocument
     Set doc = uidoc.document

     Dim con As New ODBCConnection
     Dim qry As New ODBCQuery
     Dim res As New ODBCResultSet
     Dim RetCode As Integer

     RetCode% = Con.ConnectTo("MRP SYSTEM")
     Set Qry.Connection = Con

     Qry.SQL = "SELECT * FROM BikePart"
     Set Res.Query = Qry

     Res.Execute
     RetCode% = Res.LastRow
     RetCode = Res.GetValue("RECID", RecID%)
     Res.AddRow

     Call Res.SetValue("RECID", RecID% + 1)
     Call Res.SetValue("TYPE", uidoc.fieldGetText("Type"))
     Call Res.SetValue("DIMENSION", uidoc.fieldGetText("Dimension"))
     Call Res.SetValue("VENDOR", uidoc.fieldGetText("Vendor"))
     Call Res.SetValue("COST", uidoc.fieldGetText("Cost"))

     RetCode% = Res.UpdateRow
     RetCode% = Res.Close( DB_CLOSE )
     RetCode% = Con.Disconnect
End Sub