vb 访问SYBASE的问题

[ljzk]

请教，我能用VB正常连接SYBASE，但执行同一查询时，查询有时成功或报错！！
代码如下：
Public syConnora As New ADODB.Connection
Public AdoSybase As ADODB.Recordset
Dim syOra As String
Dim sySql As String

Private Function Syset() As Boolean
On Error GoTo ErrConnOra:
syOra = "Driver={sybase ase odbc Driver};DSN=syb;UID=lyd;PWD=lpsgdj;Database=lpsgdj;SRVR=sybase"
syConnora.ConnectionTimeout = 30
syConnora.Open syOra
Syset = Tru
sySql = "Select b.yhbh,qdfhj From web_yydhhm a,web_qdfhj b Where b.yhbh=a.yhbh and qdfhj>=100 and qdfhj<=10000"
注：上面的查询能在PB5中正常查询，而在VB中老是返回.RecordCount = 0或报错！！
Exit Function
ErrConnOra:
Syset = False
End Function

Private Function ExeSql(ByVal TStrSql As String) As Boolean
On Error GoTo ErrExecSql:
Set AdoSybase = New ADODB.Recordset
sySql = TStrSql
AdoSybase.CursorLocation = adUseClient
AdoSybase.Open sySql, syConnora, , , adCmdText
ExeSql = True
Exit Function
ErrExecSql:
MsgBox Err.Description
ExeSql = False
End Function

[BrentIvan]

AdoSybase.Open sySql, syConnora, , , adCmdText

-->

AdoSybase.Open sySql, syConnora,3 ,3 , adCmdText

[ljzk]

TO：BRENTIVAN
我照你的方法做了，还是不能查询，还是 .RecordCount = 0 ！！
是不是其他地方要设置，比方说：ODBC配置等，但我用上面的连接，是曾经可以查询的呀。

[BrentIvan]

你把On Error这些东西都去掉，调程序的时候怎么能加这种东西

[BrentIvan]

AdoSybase.CursorLocation = adUseClient '这里改成Server端游标试试