当然也可以用setfocus方法
前提是要在formload中提前把这个窗体show出来
比如
private sub form_load()
form1.show
text1.setfocus
end sub
这样就可以了
因为setfocus方法是对可见控件而言的
在form show出来之前,textbox等控件是不可见的,所以不能直接在formvload过程中使用
老大你没有刷新datagrid 你这样吧看能不能行
Adodc1.RecordSource = "select * from " + Trim(Text1.Text)
Set DataGrid1.DataSource = Adodc1
adodc1.refrsh
datagrid1.refresh
end sub