listbox如何实时更新数据库中信息？

[average1986]

比如我用sql命令删除listbox中一条信息，在数据库中已经删除，但listbox中还是显示以前没删除时得信息，如何实时更新数据库中信息.
具体listbox代码如下.
form_load中的代码
Dim strcon, strcmd As String
strcon = "Initial Catalog=blddatebase;Data Source=(local);User ID=sa;Password=;"
Dim sqlcon As SqlConnection = New SqlConnection(strcon)
sqlcon.Open()
strcmd = "Select * From gysxinxi "
Dim dr As SqlDataReader
Dim sqlcmd As SqlCommand = New SqlCommand(strcmd, sqlcon)
dr = sqlcmd.ExecuteReader
Do While dr.Read
ListBox1.Items.Add(dr(0))
Loop
dr.Close()
sqlcon.Close()
listbox中的代码
Dim strcon, strcmd As String
strcon = "Initial Catalog=blddatebase;Data Source=(local);User ID=sa;Password=;"
Dim sqlcon As SqlConnection = New SqlConnection(strcon)
sqlcon.Open()
strcmd = "select * from gysxinxi where gysbh='" + Me.ListBox1.Text + "'"
Dim sqlcmd As SqlCommand = New SqlCommand(strcmd, sqlcon)
Dim dr As SqlDataReader
dr = sqlcmd.ExecuteReader
dr.Read()
Me.TextBox1.Text = dr("gysmc")
If dr.IsDBNull(2) = True Then
Me.TextBox2.Text = ""
Else
Me.TextBox2.Text = dr("lxdh")
End If
If dr.IsDBNull(3) = True Then
Me.TextBox3.Text = ""
Else
Me.TextBox3.Text = dr("gysdz")
End If
If dr.IsDBNull(4) = True Then
Me.TextBox4.Text = ""
Else
Me.TextBox4.Text = dr("yb")
End If

这是删除信息的代码
Dim strcon, strcmd As String
strcon = "Initial Catalog=blddatebase;Data Source=(local);User ID=sa;Password=;"
Dim sqlcon As SqlConnection = New SqlConnection(strcon)
sqlcon.Open()
strcmd = "DELETE FROM gysxinxi WHERE [gysbh]='" & ListBox1.Text & "'"
Dim sqlcmd As SqlCommand = New SqlCommand(strcmd, sqlcon)
sqlcmd.ExecuteNonQuery()
MessageBox.Show("删除供应商信息成功!", "提醒", MessageBoxButtons.OK, MessageBoxIcon.None)
大家帮我想想办法如何即时更新数据库信息到listbox，最好写点代码或实例谢谢！

[average1986]

1楼代码出现问题
listbox1.DataTextField 不是"system.windows.from.listbox"的成员是什么意思？谢谢解答！

[yasmong]

把数据源(你查询出的数据)绑定到listbox就行了
list.DataSource = ds.Tables(0)'ds 为 DataSet 对象
list.DataTextField = "textFld" 'textFld 为字段名称
list.DataValueField = "valueFld"'valueFld 为字段名称
list.DataBind()

[YEASIR]

二楼的问题，直接在控件的属性栏里面设置不用代码的话应该不会出现这种情况吧！！！