How to fix run-time error 3709 with my computer
When I try to run my program it says run-time error 3709 the connection cannot be used to perform this action, it is either closed or invalid in this context. mean while I used a module in which i put the following codes :
Public cn As ADODB.Connection
Public Sub Main()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "C:UsersLab2c28DocumentsAuthors databaseauthors.mdb"
cn.Open
Form1.Show
End Sub
and then I put the following codes in a save button :
Private Sub cmdsave_Click()
Dim rsauthors As New ADODB.Recordset
Set rsauthors = New ADODB.Recordset
With rsauthors:
Software/Hardware used:
VB6
-
ActiveConnection = cn
- Source = ("SElect * From authors") .
- LockType = adLockOptimistic
- Open
- AddNew
- Fields("Book ID_") = Text1.Text
- Fields("Name") = Text2.Text
- Update
Software/Hardware used:
VB6
ASKED:
October 11, 2012 2:08 PM
UPDATED:
October 11, 2012 3:04 PM
Answer Wiki:
Last Wiki Answer Submitted:
Be the first to answer this question.
All Answer Wiki Contributors:
Be the first to answer this question.
Michael Tidmarsh 
11,400 pts. ,
beginner1 5 pts.
11,400 pts. ,
beginner1 5 pts. To see all answers submitted to the Answer Wiki: View Answer History.
Before trying to execute operations on the database you need to check whether the connection was successfully established, but in this case I don’t see where you tell the connection object the the driver or type of database you are using, and thus I don’t think you will be able to connect.