How Would I Display Records On My Listview Without Getting An Error On My Second Attempt When I Click The Button. im getting a runtime error 3709 on this line ' adoRS4.ActiveConnection = strConn4'...

Dim pubconn As Integer
Dim strConn4 As ADODB.Connection
Dim adoRS4 As ADODB.Recordset


Sub OpenDatabase4()

Set strConn4 = New ADODB.Connection


    strConn4.CursorLocation = adUseClient
    strConn4 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\my computer\Desktop\RDEC-3\dbRDEC.mdb;Persist Security Info=False"
    
    Set adoRS4 = New ADODB.Recordset
    adoRS4.ActiveConnection = strConn4
    adoRS4.Open "Select * from tblPublication", strConn4, adOpenStatic, adLockBatchOptimistic
    
    
    
    'Set adoRS4.ActiveConnection = Nothing
    
    
    adoRS4.Close
    strConn4.Close
    Set strConn4 = Nothing
    Set adoRS4 = Nothing
    'strConn4 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\my computer\Desktop\RDEC-3\dbRDEC.mdb;Persist Security Info=False"
    
    'adoConn4.ConnectionString = strConn4
    'adoConn4.Open
    
   ' Set objCmd = New ADODB.Command
    'Set objCmd.ActiveConnection = adoConn
    'objCmd.CommandType = adCmdText
End Sub
'Sub CloseDatabase1()
 '   adoRS4.Close
  '  Set adoRS4 = Nothing
   ' adoConn4.Close
    'Set adoConn4 = Nothing
'End Sub

Private Sub cmdAddPublication_Click()
addPublication.Show 1
End Sub

Private Sub Form_Load()
Call OpenDatabase4
Call publicationlisting
End Sub
Private Function publicationlisting()

With lvwPublication
    .View = lvwReport
    .ColumnHeaders.Clear
    .ColumnHeaders.Add , , "ISBN", 3400
    .ColumnHeaders.Add , , "Journal Name", 3400
    .ColumnHeaders.Add , , "Editor", 3400
    .ColumnHeaders.Add , , "Volume Number", 3400
    .ColumnHeaders.Add , , "Date Published", 3400

    localsql4 = "SELECT * FROM tblPublication"
    
    Dim adoRS4 As New ADODB.Recordset
    
        If adoRS4.State = 1 Then adoRS4.Close
           adoRS4.Open localsql4, adoConn4
           
           lvwPublication.ListItems.Clear
           
           While Not adoRS4.EOF
           
           Set ListItem = .ListItems.Add(, , IIf(IsNull(adoRS4!isbn) = True, "", adoRS4!isbn))
               ListItem.ListSubItems.Add , , IIf(IsNull(adoRS4!JournalName) = True, "", adoRS4!JournalName)
               ListItem.ListSubItems.Add , , IIf(IsNull(adoRS4!Editor) = True, "", adoRS4!Editor)
               ListItem.ListSubItems.Add , , IIf(IsNull(adoRS4!VolumeNum) = True, "", adoRS4!VolumeNum)
               ListItem.ListSubItems.Add , , IIf(IsNull(adoRS4!DatePublished) = True, "", adoRS4!DatePublished)
           
           
               adoRS4.MoveNext
       Wend
       
End With
End Function

Private Sub lvwPublication_DblClick()
If pubconn > 0 Then

localsql4 = "SELECT * FROM tblPublication"

    If adoRS4.State = 1 Then adoRS4.Close
        adoRS4.Open localsql4, adoConn4
        End If
    End If

End Sub

Private Sub lvwPublication_ItemClick(ByVal Item As MSComctlLib.ListItem)
pubconn = Item.Index
End Sub


Private Sub vkToggleButton1_Click()
addPublication.Show 1
End Sub

Private Sub vkToggleButton2_Click()
Unload Me
End Sub