下面是我的代码，但是DataGridView1不显示任何数据。请高手帮我看看！

Question

设想：利用Recordset从数据库里读取数据，然后在DataGridView1中显示，然后我可以对选中的记录行，做更新、删除等操作。'代码开始Dim Conn As ADODB.Connection '声明连接数据库对象 -- 用来连接数据库文件，并对数据库以及数据表的操作Dim Rst As ADODB.Recordset '声明数据记录集对象 -- 用来返回数据记录集，并对记录的操作Conn = New ADODB.Connection '数据库对象的实例化Rst = New ADODB.Recordset '记录集对象的实例化Dim MainConnect As String'Dim Sql As StringMainConnect = "driver={SQL Server};server=U8101;uid=sa;pwd=usine2315315!@#;database=ufdata_001_2017"conn = New ADODB.ConnectionConn.Open(MainConnect)'Sql = "select * from WA_PRWorkNum"Rst.Open("select cGZGradeNum,cPsn_num,cDay,iWorkNum from WA_PRWorkNum", Conn)DataGridView1.DataSource = RstDataGridView1.Refresh()MsgBox(" 连接成功", vbExclamation + vbOKOnly)'代码结束

Answer 1

Dim Conn As New ADODB.ConnectionDim Rst As New ADODB.RecordsetConn.Open "driver={SQL Server};server=U8101;uid=sa;pwd=usine2315315!@#;database=ufdata_001_2017"Rst.Open "select cGZGradeNum,cPsn_num,cDay,iWorkNum from WA_PRWorkNum", Conn, 1, 1DataGridView1.DataSource = RstDataGridView1.RefreshMsgBox "连接成功", vbExclamation + vbOKOnly

不要乱用括号。方法（或者把函数当作方法来使用时）的参数是不能加括号的。