如何进行VB删除记录

如何进行VB删除记录
数据库结构：
1：bh       数字                  &&编号
2：xm      文本      8          &&姓名
3：dh       文本      20       &&电话
数据库记录如下：
bh xm dh
1 李四 11111111
2 张三 22222222
3 刘六 33333333
4 谢五 44444444
5 徐生 55555555
6 岑生 66666666
7 冯生 77777777
8 曾生 8888888
9 黎生 9999999
10 周生 2694119


  当要删除“4      谢五    44444444”这条记录时，数据库记录是：
bh xm dh
1 李四 11111111
2 张三 22222222
3 刘六 33333333
5 徐生 55555555
6 岑生 66666666
7 冯生 77777777
8 曾生 8888888
9 黎生 9999999
10 周生 2694119

但本人为应用需要，使数据库变为：
bh xm dh
1 李四 11111111
2 张三 22222222
3 刘六 33333333
4 徐生 55555555
5 岑生 66666666
6 冯生 77777777
7 曾生 8888888
8 黎生 9999999
9 周生 2694119
--------------------编程问答-------------------- Text1.Text =44444444

SQL = "select * from 表名 where dh='" & Text1.Text & "'"

Set rs = TransactSQL(SQL)

        rs.Delete

        rs.MoveNext

        If rs.BOF = True Then

            rs.MovePrevious

        End If

    rs.Close

--------------------编程问答-------------------- 删除了记录：Text1.Text =44444444 后得到的结果是：

bh xm dh 
1 李四 11111111 
2 张三 22222222 
3 刘六 33333333 
5 徐生 55555555 
6 岑生 66666666 
7 冯生 77777777 
8 曾生 8888888 
9 黎生 9999999 
10 周生 2694119 

和以前编写删除一样。达不到bh向上移动的功能。
--------------------编程问答-------------------- 你是用哪种数据库的!?MSSQL?还是ORACLE?

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