vb找不到数据库

我在sql2000中建了一个数据库，但在vb中连接不上，不知道为什么，请各位高手指点
---------------------------------------------------------------

你怎么连接的那?详细描述一下
---------------------------------------------------------------

说详细点~~~~~~
---------------------------------------------------------------

用ODBC试一试
配置好数据源
使用相应的权限
---------------------------------------------------------------

用ODBC连，再在VB中设置好相应的连接字符串。
---------------------------------------------------------------

再试一试：

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strcnn As String
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset

con.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=databasename;Data Source=servername"

rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.Open S_SQL_str, con, adOpenDynamic, adLockOptimistic

---------------------------------------------------------------

补：
S_SQL_str="select * from 表"