。。。。。
user = txtuser
pwd = txtpwd
strsql = "select * from m123 where name='" & user & "'and id='" & pwd & "'"
r.Open strsql, conn
Set DataGrid1.DataSource = r-----------------报错行
DataGridRows = r.RecordCount
DataGrid1.Refresh
。。。。。
实时报错 7004 ， 行集合不能做为标签

sql数据库中的表
　　　　　　　　 id 　　　name 　　　水　　　电　　气
　　　　　　　　　　１１１　　１１１　　＃＃　　＃＃　＃＃


dataGird 格式　　　 id 　　　name 　　　水　　　电　　气
　　　　　　　　　　

你也在学习vb吗？
我也刚下决心完成我们的vb大作业了。