SQL og run-time error

Hej
Følgende Sql sætning (anbragt i en brugerform i excel) fungerer fint på en Windows 2000 prof med office 2003 men med Windows XP prof + Office 2003 opstår Run-time error 2147418113(8000fff) Katastrofal fejl. Hvorefter sætningen med rsdata.open... markeres med gult. Hvad kan gøres ?

vh Steen


    Dim rsData As ADODB.Recordset
    Dim szConnect As String
    Dim szSQL As String
    Dim strSQL As String

    szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=d:\database\HCV.mdb;"
   
    HCVno = Right(HCVno, 4)

    szSQL = "SELECT * FROM [HCV præ-per] where [HCV] LIKE'" & HCVno & "%'"

    Set rsData = New ADODB.Recordset
    rsData.Open szSQL, szConnect, adOpenForwardOnly, adLockReadOnly, adCmdText

    Me.TxtHenvist.Text = rsData("Henvist").Value

Set rsdate = nothing