Datagrid记录问题

当插入第一条记录时,数据库中已经添加了但没有显示在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.Bookmark
  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.Bookmark = BookMK

用bookMK 就会出错,不用没的事
--------------------编程问答-------------------- 插入后刷新一下即可以看到了

Set DataGrid1.DataSource = Nothing
rs.Refresh
Set DataGrid1.DataSource = rs

--------------------编程问答-------------------- 不对
rs 无法刷新  它在代码中 没有refresh方法
运行后出现参数不正确提示 --------------------编程问答-------------------- 呵呵,晕倒, 这是我从代码上拷过来的, 原来是 Adodc 临时改为 rs 抱歉

你把那行干掉啊, 重点在于Set DataGrid1.DataSource = Nothing 这行
--------------------编程问答-------------------- rs虽然没有refresh但是有update啊.

补充：VB ,  数据库(包含打印，安装，报表)