这里有一个数据库问题,请高手指点!

[gxl]

我在做数据库实习的时候(是在用VB来做的),数据库采用的是sqlserver ,调试的时候总是遇到出现这样一个问题:"找不到入口点 sqlallocenv in odbc32.dll"
问题就出现在这个程序段里,请有心人帮帮我!

代码： 全选

Private Sub connect()
 Dim tmpstat As Long
 If isconnect = True Then
 Exit Sub
 End If
 If sqlallocenv(henv) Then
 MsgBox "无法初始化ODBC环境!", , "ODBC API执行错误"
 End
 End If
 If sqlallocconnect(henv, hdbc) Then
 MsgBox "无法连接ODBC!", , "ODBC API执行错误"
 End
 End If
 tmpstat = sqlconnect(hdbc, dsn, Len(dsn), db_user_name, lench(db_user_name), db_password, Len(db_password))
 If tmpstat <> sql_success_with_info Then
 MsgBox "无法连接句柄!", , "ODBC API执行错误"
 isconnect = True
 disconnect
 End
 End If
 isconnect = True
End Sub