Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
conn.Open "DSN=passwd"
rs.Open "select * from password", conn, 3, 3
rs.MoveFirst
Do While Not rs.EOF
MsgBox rs.Fields(0) & "-" & rs.Fields(1) & "-" & rs.Fields(2)
rs.moveNext
Loop
0 件のコメント:
コメントを投稿