ODBC connection to external database

Dim status As String
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim firstName As String
Dim lastName As String
Dim msg As String
On Error Goto errorHandler
	
	
	Set uidoc = workspace.CurrentDocument
	
	status = con.ConnectTo("ananta", "crm", "crm")
	
	qry.SQL = "SELECT * FROM complaint_type_master"
	result.Execute
	result.AddRow
	
	firstname = uidoc.FieldGetText( "complainttypeid" )
	lastname= uidoc.FieldGetText( "description" )	
	'deptname= uidoc.FieldGetText( "groupadmin" )	
	
	Call result.SetValue("complainttypeid", _
	firstname)
	
	Call result.SetValue("description", _
	lastname)
	
	'Call result.SetValue("groupadmin", _
	'deptname)
	
	result.UpdateRow
	con.AutoCommit = True
	result.Close(DB_CLOSE)
	
	con.Disconnect
	
	Call uidoc.FieldSetText( "firstname","" )
	Call uidoc.FieldSetText( "lastname","" )
	'Call uidoc.FieldSetText( "groupadmin","" )
	
	Exit Sub
errorHandler:
	
	Messagebox result.GetExtendedErrorMessage,, result.GetErrorMessage
	Exit Sub