Notes/Domino 4 and 5 Forum

Hi. I need to add a new record to db Access with ODBC, here my code (but doesn´t work). Can somebody help me please?, Thanks.

Sub Initialize
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim firstName As String
Dim lastName As String
Dim msg As String
Set qry.Connection = con
Set result.Query = qry
If Not con.ConnectTo("NCMDB") Then
Print "Error, no fué posible conectar a la Base de datos"
Exit Sub
Else
Print "Actualizando..."
qry.SQL = "SELECT * FROM General.General"
result.Execute
result.AddRow
Call result.SetValue("General.gEmpresa", "BM") 'I try to add a constant, only for test
result.UpdateRow
result.Close(DB_CLOSE)
con.Disconnect
Print "Ha finalizado el alta"
End If
End Sub