[求助][急!!!] 请高手帮忙指导下VB程序(如果成功我会给"奖励")

Question

如题: 希望有高手能帮帮我,比较急,这个软件必须下个礼拜就弄好,但是小弟VB学的不好,希望有高手能指导我,最好是杭州人面对面交流,当然事成之后我可以给"奖励"!!!!
部分代码如下:
Public Function exesql(ByVal sql As String) As ADODB.Recordset
sql = Trim$(sql)
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=kyjk;Initial Catalog=kyjk"
conn.Open
Set rst.ActiveConnection = conn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open sql
Set exesql = rst
Set rst = Nothing
Set conn = Nothing
End Function
还有2个地方,是比较简单的修改,关键是这个,我使用时他会跳出"实时错误'-2147467259(80004005)':[Microsoft][ODBC驱动程序管理器]未发现数据源名称并且未指定默认驱动程寻"  点调试后就跳到 上面的代码中 conn.open

Answer 1

数据库连接有问题
用adodc手工连一下看看ConnectionString

Answer 2

小弟只学过VB的基础,涉及到数据库的一点办法都没有...楼上的朋友能不能说的具体点,或者加我QQ 231800709(备注VB)
感激不尽!!!

Answer 3

使用ODBC的连接字符串
"Provider=MSDASQL;DSN='" & dsnName & "';UID='" & MyUserID & "';PWD='" & MyPassword &"';"
使用ADO的连接字符串
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security info=False;User ID='" & DbUserName & "';Password='" & DbUserPwd & "';Initial Catalog='" & DbName & "';Data Source='" & SvrName & "'"

Answer 4

具体的就是在窗体上加一个adodc，按右键，属性，在里面生成一个连接串，把那个串拷到你的conn.ConnectionString =后面

Answer 5

LZ:如果你是通过ODBC连接数据源，那须由系统的ODBC数据源作设置。

Answer 6

把连接字符串conn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=kyjk;Initial Catalog=kyjk" 
换成
conn.ConnectionString = "SERVER=服务器名;UID=登录名;PWD=密码;DATABASE=数据库名;DRIVER=sql server;"
试试，
 
服务器名是指安装SQL SERVER的服务器名，如果是局域网，可以为计算机名，建议使用该机的IP地址，如果本机可以写成一个小数点（.)
登录名，登录SQL SERVER的用户名，你可以用sa
密码,登录名相应的密码
数据库名,要该 问的数据库，你这里应该是kyjk