Data type mismatch in criteria expression

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   I have these error mesg: 
Microsoft JET Database Engine (0x80040E07)
Data type mismatch in criteria expression.
My code:

if strAlpha1 = ""  then         &n bsp;         &n bsp;       
 sql = "Select * FROM customer, cust_businesstype WHERE companyname LIKE 'A%' "
 sql = sql & "OR companyname LIKE 'B%' "
 sql = sql & "AND businesstypeID = '10' "
 sql = sql & "AND companyID =  custID "         ;           ;           ;           ;        
 sql = sql & "ORDER BY  companyname"             
else         
  if strAlpha1 = "0" then
    sql = "Select * FROM customer, cust_businesstype WHERE ASC(LCASE(left(companyname,1))) not between 97 and 122 "
    sql = sql & "AND businesstypeID = '10' "
    sql = sql & "AND companyID = custID  "           ;           ;           ;      
    sql = sql & "ORDER BY companyname"
   else       &n bsp;      
    sql = "Select * FROM customer, cust_businesstype WHERE companyname LIKE '" & strAlpha1 & "%' "
    sql = sql & "OR companyname LIKE '" & strAlpha2 & "%'  "           ; 
    sql = sql & "AND businesstypeID = '10' "
    sql = sql & "AND companyID = custID  "           ;              
    sql = sql & "ORDER BY companyname"
  end if
end  if         &nbs p; 
rs.CursorLocation = 3
rs.open sql, conn

In my access db, custID in customer table is autonumber datatype, companyID in BusinessType table is number datatype.
Can anyone point out what's problem? When I took out the '' in '10' to become just 10, it says 

The page cannot be displayed

The page you are looking for is currently unavailable. The Web site might be experiencing technical difficulties, or you may need to adjust your browser settings.