Hi, please find below a code snippet to insert a row into a table. You can
use it.

Public Sub myUpdate_ProjectResourceRole()
Const DSN As String = "ODBC;DATABASE=" & DB_NAME & ";UID=;PWD=;DSN=DSN_TEST;"
Dim ws As DAO.Workspace
Dim con As DAO.Connection
Dim qd As DAO.QueryDef

Set ws = DAO.CreateWorkspace("", "", "", dbUseODBC)
Set con = ws.OpenConnection(DSN, dbDriverNoPrompt, False)
query = "INSERT INTO
Map_Project_Resource_Role(project_id,resource_id,r ole_id) VALUES('" & prid &
"','" & reid & "','" & roid & "');"
con.Execute query
con.Close
ws.Close
End Sub


"Fred" wrote:

Hi Madhan,

Yes, I can scan a row and exclude the cells I don't need, it's the
wriing the results to the table bit that I'm struggling to understand.

Cheers
Fred