差不多和SQLSERVER一个样:
这样:
private sub command1_click()
dim conn as new adodb.connection
conn.open "dsn"  '你的连接字符串sql server或access都行。
conn.execute(YourProcedure,parameter1,parameter2)
your code......
end sub不过你的问题可以这样解决:
private sub command1_click()
dim conn as new adodb.connection
conn.open "dsn"  '你的连接字符串sql server或access都行。
dim tempstr as string
tempstr=inputbox("notice","title")
sqlstr="select * from student where name='"&tempstr&"'"
conn.execute(sqlstr,parameter1,parameter2)
your code......
end sub