adding records into a database using vb

hi,

i have created a little form to add records into an existing database. the
code looks correct, as follows;

Dim Assignment2 As Connection
Dim rs As Recordset

Private Sub cmdAddRecord_Click()
Dim i As Integer
Set db1 = New ADODB.Connection
db1.Provider = "Microsoft.Jet.OLEDB.4.0;"
db1.ConnectionString = "..."
db1.Open
Dim ar As ADODB.Recordset
Set ar = New ADODB.Recordset

ar.Open "select * from submission_info", Assignment2, adOpenDynmic,
adLockOptimistic

ar.AddNew
ar!Title = txtFirstName.Text
ar!contact_author_first_name = txtFirstName.Text
ar!contact_author_second_name = txtSecondName.Text
ar!contact_author_address_1 = txtInstitute.Text
ar!contact_author_address_2 = txtNameOfInstitute.Text
ar!contact_author_address_3 = txtAddress.Text
ar!contact_author_address_4 = txtCity.Text
ar!contact_author_address_5 = txtCountry.Text
ar!contact_author_address_6 = txtZipCode.Text
ar!paper_ID = txtPaperID.Text
ar!paper_title = txtPaperTitle.Text
ar.Update
End Sub

but when i run the code and click on add, i get an error sayding 'the
connection cannot be used to perform this operation. it is either closed or
invalid in this context'.

i've created a similar form like this, but with only 4 fields, and it works
perfectly. wat am i doing wrong? how can i fix this?

thanx

devin

On Tue, 08 Feb 2005 17:02:19 GMT, "Devin Panchal"
<d.panchal RemoveThis @ntlworld.com> wrote:

 >ar.Open "select * from submission_info", Assignment2, adOpenDynmic,
 >adLockOptimistic

Your code has syntax errors. I recommend that you copy and paste from
the IDE, including the precise connection string.

 >i've created a similar form like this, but with only 4 fields, and it works
 >perfectly. wat am i doing wrong? how can i fix this?

Other ideas are indexes - some providers require that a PK be on the
table.
_______________________
Michael B. Johnson<!-- ~MESSAGE_AFTER~ -->