datalist刷新

[kyuna]

我在vb里添加了一个datalist控件和ado控件，ado控件是与acess数据库连接的，我在窗体上做了一个添加按钮和文本框，我想通过点击这个按钮以后把文本框的内容添加大数据库里，并且在datalist上列出来，但是我在添加的时候datalist上并不能把添加的内容马上显示出来，只有在添加下一个项时，前面添加的那个项目才能才datalist上列出来，下面是我写的代码，请大家帮我看看是什么问题，谢谢！
Private Sub Cmd_Add_Click()
If Len(VBA.Trim(txtName)) = 0 Then
MsgBox ("请输入分类名称")
txtName.SetFocus
Exit Sub
End If

If MyType.In_DB(VBA.Trim(txtName), 1) = True Then
MsgBox ("已经存在此分类名称")
txtName.SetFocus
Exit Sub
End If
With MyType
.TypeName = VBA.Trim(txtName)
.TypeId = 1
.Insert
End With
DataRefresh
txtName.Text = ""

End Sub
Private Sub DataRefresh()

Adodc1.ConnectionString = Conn

Adodc1.RecordSource = "SELECT * FROM Types WHERE TypeId=1"
Adodc1.Refresh

Set DataList1.RowSource = Adodc1
DataList1.ListField = "TypeName"
DataList1.BoundColumn = "Id"
DataList1.Refresh
End Sub
为什么datalist不能刷新数据

[daisy8675]

改用ado而不是adodc控件