自动触发查询按钮，待，很急

自动触发查询按钮，在线等待，很急！
用VB写一个简单的查询功能，CmdFind按钮每1分钟自动查询一次，请问代码要怎样写。

[解决办法]
还不详细吗？

VB code

Option ExplicitPrivate Sub CmdFind_Click()    '这里面是你的查询代码，我无从知晓End SubPrivate Sub Form_Load()    Timer1.Interval = 60000    Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()    Call CmdFind_ClickEnd Sub