Type mismatch

Hi, Please check my code here as there is a type mismatch when I am trying to get the data from the Excel sheet.
My data is like this..

Entered Entered By Name Customer Name Product C-View No. C-View % Location Annual Gross ZDS Checklist
01/25/2015 15:02:51 tin Mafaz Maya Paris Ocean Qatar With SOP

it cannot retrieve the column NAME, thanks!!!

Private Sub cmdUpdateDropDowns_Click()
strSQL = "Select Distinct [Name] From [PartsData$] Order by [Name]"
closeRS
OpenDB
cmbBDNAME.Clear

rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
Do While Not rs.EOF
cmbBDNAME.AddItem rs.Fields(0)
rs.MoveNext
Loop
Else
MsgBox "I was not able to find any unique Products.", vbCritical + vbOKOnly
Exit Sub
End If

'----------------------------
strSQL = "Select Distinct [Location] From [PartsData$] Order by [Location]"
closeRS
OpenDB
cmbLocation.Clear

rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
Do While Not rs.EOF
cmbLocation.AddItem rs.Fields(0)
rs.MoveNext
Loop
Else
MsgBox "I was not able to find any unique Region(s).", vbCritical + vbOKOnly
Exit Sub
End If
'----------------------
strSQL = "Select Distinct [ZDS Checklist] From [PartsData$] Order by [ZDS Checklist]"
closeRS
OpenDB
cmbZDS.Clear

rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
Do While Not rs.EOF
cmbZDS.AddItem rs.Fields(0)
rs.MoveNext
Loop
Else
MsgBox "I was not able to find any unique Customer Type(s).", vbCritical + vbOKOnly
Exit Sub
End If
End Sub

Help please