This is a small bit of code which has the error I am having.
The SQL Statement at the begginning is this

```
sqlStr = "SELECT Computer, Room_Num, Speed, Num_CPUs, OS_Type, HDD_Size 
FROM Computers WHERE Num_CPUs = 1 OR Speed < 2.1 OR HDD_Size < 300 ORDER BY Room_Num" 

Do Until objRecordSet.EOF
    recordsStr = recordsStr & objRecordSet.Fields.Item("Computer").Value & _ 
    vbTab & pad(objRecordSet.Fields.Item("HostName").Value,12) & _
    vbTab & pad(objRecordSet.Fields.Item("Room_Num").Value,14) & _
    vbTab & objRecordSet.Fields.Item("CPU_Type").Value & _
    vbTab & objRecordSet.Fields.Item("Speed").Value & _
    vbTab & objRecordSet.Fields.Item("Num_CPUs").Value & _
    vbTab & objRecordSet.Fields.Item("Bit_Size").Value & _
    vbTab & pad(objRecordSet.Fields.Item("OS_Type").Value,12) & _ 
    vbTab & objRecordSet.Fields.Item("Memory").Value & _
    vbTab & objRecordSet.Fields.Item("HDD_Size").Value & vbCrLf 
objRecordSet.MoveNext

```

Having the error on the second line:

```
recordsStr = recordsStr & objRecordSet.Fields.Item("Computer").Value & _

```

The error is:

> 
> Item Cannot be found in the collection corresponding to the requested name or ordinal.
> 
> 
> 

Ok somehow i fixed that error, now getting a new one on a line of code that i did not even touch...

```
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open dataSource
Set objRecordSet = CreateObject("ADODB.Recordset")
objRecordSet.Open sqlStr , objConnection
objRecordSet.MoveFirst

```

Getting an error in the line

```
objRecordSet.Open sqlStr , objConnection

```

Data type mismatch in criteria expression