添加,数据,更新,显示,

Question

Private Sub Command1_Click()
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
Dim Sql As String
Dim A, B, C, d, E As String
A = Trim(Text1.Text)
B = Trim(Combo1.Text)
C = Trim(Text2.Text)
d = Trim(Combo2.Text)
E = Trim(Text3.Text)
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Program Files\VB98\gongcheng\db8.mdb;Persist Security Info=False"
cn.Open
Sql = "insert into 爆破员信息录入 (姓名,性别,联系方式,所属部门,家庭住址) values ('" & A & "','" & B & "','" & C & "','" & d & "','" & E & "')"
cn.Execute Sql
Set DataGrid1.DataSource = rs
End Sub我想让添加的行在DataGrid1中显示出来~~~以上的代码只能添加,但显示不出~~~能不能教教我~~~~在添加之后重连数据原以便更新~~~~~该怎么做嫩>??

Answer 1

rs在哪打开的？
refresh一下