Why does this function error?

[J. Clay]

I have this following function in a module in a dll that I am using for my
aspx site. I get the following error:
"IErrorInfo.GetDescription failed with E=FAIL(0x80004005)"

If I remove the OleDb Calls and just return one of the parameters it works.
But for some reason, this OleDb Call is causing all sorts of havoc. It
looks exactly the same as others I am using, unless I am missing something
VERY obvious.

If anyone has any suggestions I would be extremely gratefull.

TIA -- J. Clay

**********Code Follows**************

Function CalcUPS( intWeight AS Integer, strZip As String ) AS Decimal
Dim con As OleDbConnection
Dim str as String
Dim cmd As OleDbCommand
Dim strZone As String
Dim decRate As Decimal

' Prepare for db connection
con = New OleDbConnection( mstrConSys )
con.Open()

str = "SELECT Zone FROM UPSZone WHERE ZIP = '838'"
cmd = New OleDbCommand( str, con )
strZone = cmd.ExecuteScalar()
cmd = Nothing

Return strZone
'Code removed that is currently commented out

End Function

 

[J. Clay]

Figured it out..."Zone" is a reserved word in OleDb for Access.