Error On someone elses' pc

[jhermiz]

Wrote a client server app. VB front end SQL back end.
Works fine on my PC.

On other users PC...I have a combo box to select a customer.

So once a customer is selected it is supposed to fill a site combo box which relates a site to a customer. So the click event of the customer is:

Private Sub cboCustomers_Click()
On Error GoTo Err_Handler
'function fills all the site names for the customer
Call FillSiteCBO
 
Done:
Exit Sub
 
Err_Handler:
MsgBox Err.Description, vbCritical, "Error #: " & Err.Number
Resume Done
 
End Sub

And FillSiteCBO looks like this:

Private Sub FillSiteCBO()
On Error GoTo Err_Handler
 
Dim objRSFill As ADODB.Recordset
 
Call EstablishConnection
Set objCmd = New ADODB.Command
Me.cboSites.Clear
objConn.CursorLocation = adUseClient
 
    With objCmd
        .ActiveConnection = objConn
        .CommandText = "select_sites_by_customer"       'our stored procedure is good_login
        .CommandType = adCmdStoredProc          'its a stored procedure
        .Parameters.Append .CreateParameter("CustomerID", adBigInt, adParamInput, , cboCustomers.ItemData(cboCustomers.ListIndex))
        Set objRSFill = .Execute
        Set objRSFill.ActiveConnection = Nothing
        Call ReleaseConnection
    End With
 
    If objRSFill.BOF Then
        'do nothing
    Else
        Do Until objRSFill.EOF
            cboSites.AddItem objRSFill.Fields("Name").Value
            cboSites.ItemData(cboSites.NewIndex) = objRSFill.Fields("SiteID").Value
            objRSFill.MoveNext
        Loop
    End If
      
Done:
Set objCmd = Nothing
Set objRSFill = Nothing
Exit Sub
 
Err_Handler:
MsgBox Err.Description, vbCritical, "Error #: " & Err.Number
Resume Done
 
End Sub

BUT every time another user besides myself runs this code they get:

Error # -2147217872

Type name is invalid

I however do not get this error.

Can anyone explain what the dilly is here?

Thanks,
Jon

[jhermiz]

Resolved:

MDAC Problems...

http://www.microsoft.com/downloads/d...DisplayLang=en

Farking MS.

Jon