2 sets of ADO connections to two different sheets in same procedure

[farmergeoff2003]

Hi, I am working on a procedure and just want to know if 2 ado connections are possible at once like this because I am getting an error that says "Object doesn't support this property or method" and the highlighted code is causing it but I know the field exists. Thanks!

Dim row As Integer
Dim col As Integer
Dim groupID As Integer
Dim strValue As String
strValue = vbNullString


Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H1


Set wb = ActiveWorkbook
Set ws1 = wb.Sheets("ServerGroups")
Set ws2 = wb.Sheets("Servers")
Set ws3 = wb.Sheets("Display")


ws3.Unprotect


'open the ServerGroups sheet
Set conn1 = CreateObject("ADODB.Connection")
Set rs1 = CreateObject("ADODB.Recordset")


conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=C:\Users\jmausolf\Desktop\SERVDBTESTING.xlsm;" & _
        "Extended Properties=""Excel 8.0;HDR=Yes;"";"
        
rs1.Open "Select * FROM [ServerGroups$]", _
    conn1, adOpenStatic, adLockOptimistic, adCmdText
        
'open the Servers sheet
Set conn2 = CreateObject("ADODB.Connection")
Set rs2 = CreateObject("ADODB.Recordset")


conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=C:\Users\jmausolf\Desktop\SERVDBTESTING.xlsm;" & _
        "Extended Properties=""Excel 8.0;HDR=Yes;"";"
    
rs2.Open "Select * FROM [Servers$]", _
    conn2, adOpenStatic, adLockOptimistic, adCmdText

row = 1
col = 1
groupID = 1

Do Until rs1.EOF
ws1.Activate
   ws3.Cells(row, 1).Value = rs1.Fields.Item("Name")
   ws3.Cells(row, 2).Value = rs1.Fields.Item("Vendor")
   row = row + 1   ' Increase overall rows written to
   rs1.MoveNext
   ws2.Activate
   
   Do While rs2.Fields.Item("ID") = groupID
[COLOR=#ff0000]      ws3.Cells(row, 2).Value = rs2.Field.Item("Name")[/COLOR]
      ws3.Cells(row, 3).Value = rs2.Field.Item("Serial")
      ws3.Cells(row, 3).Value = rs2.Field.Item("Model/Type")
      row = row + 1
      rs2.MoveNext
   Loop
   
Loop

 

[farmergeoff2003]

Yes it works I put Field instead of Fields in the highlighted item.