各位老师，在学习VB时，自己动手做个小程序作试验，现在出现的问题是，如果添加记录后，在DataGrid中只能显示添加的新记录，刷新后不能显示全部记录，相关代码如下：

Private Sub Command_bc_Click()
If Text_bt.Text = "" Then
   MsgBox "没有数据！请填写。", , "系统提示"
   Text_bt.SetFocus
Else
   Adodc1.RecordSource = "select * from 办公室 where 办公室名称 = '" + Trim(Text_bt.Text) + "'"  '查找是否有相同记录
   Adodc1.Refresh
 If Adodc1.Recordset.RecordCount = 1 Then        '如有相同记录，重新修改Text_bt内容
    MsgBox "已有此办公室数据！请修改。", , "系统提示"
    Text_bt.SetFocus
 Else
    Adodc1.Recordset.AddNew          '如没有相同记录，则新增记录
    Adodc1.Recordset.Fields("办公室名称") = Trim(Text_bt.Text)
    Adodc1.Recordset.Update
    Text_bt.Text = ""
    Text_bt.Enabled = False
    Command_bc.Enabled = False
    DataGrid1.Refresh
 End If
End If
End Sub

请问如何修改代码，才能在刷新后显示出全部记录。