什么有二个程序的啊？！
我晕，到底那个是你问的啊？
Private Sub Form_Load()
strCnn = "provider=sqloledb.1;integrated security=sspi;persist securityinfo=false;uesr id=sa;initial catalog=宾馆信息管理系统;data sourcr=genius"
showlist
End Sub
这个数据库能不能联上呢？
你先试一下啊。
Private Sub Form_Load()
strCnn = "provider=sqloledb.1;integrated security=sspi;persist securityinfo=false;uesr id=sa;initial catalog=宾馆信息管理系统;data sourcr=genius"
Dim cnn As New Connection
cnn.Open strCnn

showlist
End Sub
先看看它是不是数据库没联上。

因为你用了on error goto了。所以容易把真的错误跳过去
我又没有你的数据库，所以无法试
说实话，你的联接语句我都看不懂。
strcnn = "driver={SQL Server};server=LEGEND-ZZTVUDV0\MATING;uid=sa;pwd=082429;database=xb
我习惯有SQL服务器名的
但我看别人也有用你的方法联的。

[此贴子已经被作者于2006-6-8 20:55:47编辑过]

我给你发的是宾馆系统，我没说明白，我用的是ODBC连接数据库~~~~

但是在添加是出现的提示，可能是没设计好，我想知道具体的用ODBC连数据库的方法~~越详细越好~~~谢谢~~~~~~`

我邮箱里没有你发的东西啊
我的程序改了一下
很多功能都可以用了
原来的错误很多
不好意思

现在我还有一些功能没有实现
你可以帮我看一下吗