删除单条数据库记录所引起的问题。

Question

前提，在VB窗体中，用adodb的connection及recordset进行数据库操作，并用用listbox1控件进行绑定显示。
在listbox1显示的窗体中对记录进行，增加，修改。
表名为userinfo，字段为id,name,password
进行单条记录修改时，为了对些记录进行标识，必须设一个识别号，在窗体上设为一个text1控件txtid。
现在一个问题就是txtid如何取得字段id的值。----------------
是否还有别的方法可以在使用listbox控件显示数据库时对单个记录进行删除??

Answer 1

部分代码如下：
Private Sub listboxDisplay()
ListName.Clear
Dim cn As Connection
Dim rs As Recordset
Dim tempStr As String
Dim cnStr As String
Dim rsStr As String
cnStr = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\db\StockInfo2k.mdb"
rsStr = "select name from userinfo"
Set cn = New Connection
Set rs = New Recordset
cn.CursorLocation = adUseClient
cn.Open cnStr
rs.Open rsStr, cn
Do Until rs.EOF
    tempStr = rs("name")
    ListName.AddItem tempStr
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
'txtId.Text = ListName.Columns(1)--------------无法执行
End Sub
-----------------------------------------------
或者有别的方法：那么是否有方法对数据库里自动编号的字段，进行重新自动编号。
如下：
1    小张
2     小李
3     大兵
4     大王
5     老黄
6     老孙
---------
当进行了对其中几个删除后
1    小张
5     老黄
6     老孙
-------------
有什么方法可以在数据库里进行重新排序，变成
1    小张
2    老黄
3    老孙
---------------------------------------------------------------------