This particular app is being done in VB6.
I am confronted with a programming problem.
I would like to capture data in my textboxes.
At this point I would like to feed this data to a recordset object. However when I run the app I get the following msg:

"Object variable or With variable not set."

I understand I could have set up a 'With' statement but why am I being compelled to ?
Also is my logic sound here or am I missing something?



Thank-you so much for any assistance.
-----------------CODE BELOW----------------------
Public rstAlianza As ADODB.Recordset
Private Sub Form_Load()

Dim cnn1 As ADODB.Connection
Dim connStr As String
'open ADO connection / DSN is data source name
connStr = "DSN=Alianza;UID = sa;PWD=pwd;"
Set cnn1 = New ADODB.Connection


'set rs=command.execu
End Sub

Private Sub Command1_Click()
Dim cnn1 As ADODB.Connection
Dim connStr As String
Dim sSql As String
Dim lRecordsAffected As Long
Dim I As Integer
Dim txtFields(5)
cnn1.Open connStr
rstAlianza.Fields(0) = Text1
rstAlianza.Fields(1) = Text2
rstAlianza.Fields(2) = Text3
rstAlianza.Fields(3) = Text4
rstAlianza.Fields(4) = Text5
rstAlianza.Fields(5) = Text6
For I = 0 To 5
txtFields(I) = rstAlianza.Fields(I)
Next
'Construct SQL statement
sSql = "INSERT INTO Authors(au_id,au_lname," _
& "au_fname,phone,address,city,state,zip,contrac t)" _
& "VALUES ('" _
& txtFields(0) & "','" _
& txtFields(1) & "','" _
& txtFields(2) & "','" _
& txtFields(3) & "','" _
& txtFields(4) & "','" _
& txtFields(5) & "')'"
cnn1.Execute sSql, lRecordsAffected
End Sub

On which line is your error occuring?

However, you declare the cnn1 object, but you never instantiate it. So the first time you try to use it, you would get the error you indicate.

You need to add this line before you attempt to use the cnn1 object:
Set cnn1 = new ADODB.Connection

You might think you are doing this in your Form_Load event, but this isn't correct. You declare an object with the same name there, and instantiate it, but then the Form_Load event ends without you doing anything with it. This is a scope problem. You have declared two separate cnn1 objects - one in Form_Load, and one in Command1_Click. They are not the same object - the are two objects of the same type.

You are also going to have problems with your rstAlianza object - you declare it outside the scope of any method, but you never instantiate it.

There are numerous other problems with your code. I would advise that you get a beginners book on doing data access with VB6 and go through all the exercises. You'll learn a lot.

Woody Z
http://www.learntoprogramnow.com
How to use a forum to help solve problems