Thanks to you guys! I was able to figure it out last night. I forgot to put "NEW" before ADODB.Recordset.

I appreciate your help. I am just new in writing...

Private Sub Form_Load()

Dim cnThisConnect As ADODB.Connection

Dim rcdCompanies As ADODB.Recordset

Set cnThisConnect = CurrentProject.Connection

rcdCompanies.Open "tblCompanies", cnThisConnect, adOpenKeyset, adLockOptimistic

rcdCompanies.AddNew

rcdCompanies![CompanyName] = "Winthrop Brewing Companies"

rcdCompanies![Address] = "155 Riverside Ave."

rcdCompanies![City] = "Winthrop"

rcdCompanies![StateOrProvince] = "WA"

rcdCompanies![PostalCode] = "98862"

rcdCompanies![PhoneNumber]...