连接数据库出错，谁可以帮我改一改，谢

Question

DBCON.ConnectionString = "Persist Security Info=False;User ID=sa;PassWord=candywen;Initial Catalog=uds2;Data Source=BING-NWGTJVF3TY "
    DBCON.Open

Answer 1

袖珍数据库连接方式查询手册　　下面的资料是平时使用到的一些数据库连接方式，可能不太全，但是可以用来当做资料查询，希望能够帮上大家的忙。
　　下面将简单介绍一下几种ADO连接方式：ODBC DSN,ODBC DSN-Less, OLE DB Provider,和"MS Remote" Provider.　I.DSN
　　oConn.Open "DSN=AdvWorks; UID=Admin; PWD=;"
　　注意：从MDAC2.1开始就不能够在使用这样的方式了，就是只把DSN文件名放在ConnectString中。你必须同时使用DSN，UID，PWD标志。例如下面的方式在MDAC 2.1中将会出错：oConn.Open "AdvWorks"　II.File DSN
　　oConn.Open "FILEDSN=\somepath\mydb.dsn; UID=Admin; PWD=;"　III.ODBC DSN-Less Connections
　　a)ODBC Text Driver
　　　oConn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)}; Dbq=\somepath\;" & _
　　　　"Extensions=asc,csv,tab,txt; Persist Security Info=False"
　　注意：需要在SQL语句中指定使用到的文件名。例如：
　　　oRs.Open "Select * From customer.csv", oConn, adOpenStatic, adLockReadOnly, adCmdText　　b)ODBC Driver for Access
　　　i)普通安全模式：
　　　　oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _ 
　　　　　"Dbq=\somepath\mydb.mdb; Uid=Admin; Pwd=;"　　　ii)如果使用了System database:
　　　　oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _ 
　　　　　"Dbq=\somepath\mydb.mdb; SystemDB=\somepath\mydb.mdw;", "admin", ""　　c)ODBC Driver for SQL Server
　　　i)普通安全模式
　　　　oConn.Open "Driver={SQL Server}; Server=carl2;" & _
　　　　　"Database=pubs; Uid=sa; Pwd=;"　　　ii)使用信任安全模式：
　　　　oConn.Open "Driver={SQL Server}; Server=carl2;" & _
　　　　　"Database=pubs; Uid=; Pwd=;"　　注意：要使用空白的Uid和Pwd 　　d)ODBC Driver for Oracle
　　　i)使用现有的Oracle ODBC Driver from Microsoft:
　　　　oConn.Open "Driver={Microsoft ODBC for Oracle};" & _
　　　　　"Server=OracleServer.world; Uid=demo; Pwd=demo;"　　　ii)使用老版本的Oracle ODBC Driver from Microsoft:
　　　　oConn.Open "Driver={Microsoft ODBC Driver for Oracle};" & _
　　　　　"ConnectString=OracleServer.world; Uid=demo; Pwd=demo;"
　IV)使用微软的OLE DB Data Link Connections方式Data Link File (UDL)
　　a)使用绝对路径
　　　oConn.Open "File Name=\somepath\pubs.udl;" 　　b)使用相对路径
　　　oConn.Open "File Name=pubs.udl;" 

Answer 2

If RsContract.State = adStateOpen Then
    RsContract.Close
End If
RsContract.Open "Contract", DBCON, adOpenKeyset, adLockPessimistic, adcmdtalbe
Call FormTxtValue2
If RsContractCustomer.State = adStateOpen Then
    RsContractCustomer.Close
End If
RsContractCustomer.Open "Customer", DBCON, adOpenKeyset, adLockPessimistic, adcmdtalbe 
运行提示不能在些环境操作？

Answer 3

DBCON.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;PassWord=candywen;Initial Catalog=uds2;Data Source=BING-NWGTJVF3TY "
    DBCON.Open

Answer 4

Provider=SQLOLEDB.1'这个指出连接的是SQL,你的连接代码少了