ADO与DATAGRID动态绑定原来这么简单

试了1小时，终于搞出来了
severname = ReadFromIni(App.Path & "\Options.ini", "sever", "severname")
user= ReadFromIni(App.Path & "\Options.ini", "sever", "user")
mypwd= ReadFromIni(App.Path & "\Options.ini", "sever", "mypasswd")
pcname=ReadFromIni(App.Path & "\Options.ini", "sever", "pcname")
‘读取配置文件，option.ini中相应内容
conn = "Provider=SQLOLEDB.1;Password="+mypwd+";Persist Security Info=True;User ID="+user+";Initial Catalog=kydb;Data Source="+pcname+"""
 
   Set dbconnect = New ADODB.Connection
   Set dbrecordset = New ADODB.Recordset
   Set dbCommand = New ADODB.Command
   dbconnect.Open conn
mysql = "select top 10 * from spk order by sprq desc"
dbrecordset.Open (mysql), conn, adOpenKeyset, adLockOptimistic
Set query.DataGrid1.DataSource = dbrecordset
连接数据库并绑定与DATAGRID中，这样就不用在程序上设置数据库连接信息了，直接根据OPTION.INI内容设置连接信息
程序的友好性大大加强了，呵呵。
但是这样DATAGRID肯定是显示不了内容的。跟一位仁兄的话说的一样，必须带上ADO控件，但是这个控件只是摆设
不做任何设置，隐藏即可。
呵呵，本人实在想不到其他办法了，找了很多办法，写的我都觉得云里雾里，我就用这个很傻瓜的办法搞了
执行效率并不慢，反正如果没ADO控件在里面，个人感觉，ADO对象怎么绑也绑不到DATAGRID上面去
当然，如果谁有更简洁的方法，不需要ADO控件的，可以跟帖告诉我，如果太复杂就算了，做程序的，之所以选择
VB就是看中它的程序实现语言简洁方法简便。以前VB的效率和兼容性总是被人所鄙视。但是现在电脑运行速度飞速发展
并且VB做的东东，基本能直接在XP上运行，无须附加任何附件。VB现在也不会被人小看了。