Datagrid记录问题

Question

当插入第一条记录时,数据库中已经添加了但没有显示在DATAGRID中,在插入第二条时DG才显示出来,以后的都可以显示'数据初始化
  strCourseID = Replace(Trim(txtCourseID.Text), "", "")
  strCourseName = Replace(Trim(txtCourseName.Text), "", "")
  strCourseTerm = Replace(Trim(Combo1.Text + "年" + Combo2.Text), "", "")
  strTeacher = Replace(Trim(txtTeacher.Text), "", "")
  intCredit = Val(txtCredit.Text)
 
'信息添加
If Not rsValid.EOF Then
     MsgBox "该课程已经存在,请重新输入!"
     txtCourseID.SetFocus
     rsValid.Close
     Set rsValid = Nothing
  Exit Sub
  End If' rsValid.Close
 ' Set rsValid = Nothing
'  BookMK = rs.Book
  rs.AddNew
  rs("CourseID").Value = strCourseID
  rs("CourseName").Value = strCourseName
  rs("CourseTerm").Value = strCourseTerm
  rs("Teacher").Value = strTeacher
  rs("Credit").Value = intCredit
  rs.UpdateBatch
 'rs.Book = BookMK用bookMK 就会出错,不用没的事

Answer 1

插入后刷新一下即可以看到了Set DataGrid1.DataSource = Nothing
rs.Refresh
Set DataGrid1.DataSource = rs

Answer 2

不对
rs 无法刷新  它在代码中 没有refresh方法
运行后出现参数不正确提示

Answer 3

呵呵,晕倒, 这是我从代码上拷过来的, 原来是 Adodc 临时改为 rs 抱歉你把那行干掉啊, 重点在于Set DataGrid1.DataSource = Nothing 这行

Answer 4

rs虽然没有refresh但是有update啊.