VB访问ACCESS中的特定数据或者随机访问 100分 急解决办法

VB访问ACCESS中的特定数据或者随机访问 100分 急！
1。ACCESS中有一个表超过100条数据现在要求点下一条随机访问100条中的某条信息，当100条信息全部访问完   点下一条按钮无效。

2。要求点   下一条   按钮访问   ACCESS中表中的   point项   值为‘1’的该条数据，直到将数据库中的所有标记point项   值为‘1’的数据。我只知道这个查询的sql句子是“select   *   from   table   where   point=     ‘1’   ”

  这两个按钮要怎么实现啊？代码要怎么编呢？
  求高手帮帮忙啊？谢谢了？



[解决办法]
dim db as database
dim sc as recordset

set db=opendatabse(...)
set sc=db.openrecordset(..)
1
sc.movefirst
disp (sc)

sub cmd_click()
sc.movenext
sub

2
sub cmd_click()
set sc=db.openrecordset( "select * from table where point= '1 ' ")
disp sc
end sub
[解决办法]
Dim DatabaseConnection As New Connection
Dim rssta As New Recordset
strsql = "select * from table where point= '1 ' "
DatabaseConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\table.MDB;Persist Security Info=False "
rssta.Open strsql, DatabaseConnection
[解决办法]
你有装VB6的msdn吗？
去看vb6自带的例子visdata好吗？
相信它对你的帮助会很。