在vb中使用odbc api函数与sql server 2000建立连接如何设置成windows 认证

[woyeyoumo]

Private Sub Connect()
Dim TmpStat As Long 'SQLConnect()函数的返回值
'如果连接标记为真，则返回。否则会出错
If IsConnect = True Then
Exit Sub
End If
'分配环境句柄，保存在变量Henv中
If SQLAllocEnv(Henv) Then
MsgBox "无法初始化ODBC环境!", , "ODBC API执行错误"
End
End If
'根据环境句柄，分配连接句柄，保存在变量Hdbc中
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 And _
TmpStat <> SQL_SUCCESS_WITH_INFO Then
MsgBox "无法获得连接句柄!", , "ODBC API执行错误"
IsConnect = True
Disconnect
End
End If
'设置连接标记
IsConnect = True
End Sub
上面是一个vb连接到sql server 2000的的一个函数,用到了odbc32.dll中的sqlconnect函数.用这个函数必须要使用dsn和用户名,还有密码.
请问有没有办法可以使用windows身份验证模式登录sql server而不必去过问sql server 中登录的用户名和密码.

[woyeyoumo]

各位对不住了,第一次在这儿提问,不是我不愿意给分,是系统不让我给,