回复 30 楼 why102011121
我用的是中文企业版，你直接百度搜VB6.0中文企业版。
程序代码：Private Sub Form_Load()
Dim tmpDBE As DBEngine
Set tmpDBE = CreateObject("DAO.DBEngine.36") '35 36
Set db = tmpDBE.OpenDatabase(App.Path & "\grx.mdb")
ResetForm
RefillGrid
End Sub
