Thanks for the reply.
I want to modify the rowsource of a control in a form.
I got something like this:
Dim appAccess As Access.Application
Dim strDB As String
Dim strFormName As String
' Initialize string to database path.
strDB = "c:\AA_xx\Workplan.mdb"
' Initialize string to Form name.
strFormName = "frmWorkPlan"
Set appAccess = _
CreateObject("Access.Application"
' Open database in Microsoft Access.
appAccess.OpenCurrentDatabase strDB
' Open form
' appAccess.DoCmd.OpenForm strFormName
Forms(0).Controls("status"

.RowSource = "inProgress"
But the last line didn't work. Access complains that the form cannot be found.
Kuan