הקוד
Private Sub Command1_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CreateDatabase(`` ``, dbLangGeneral) SQLstr = ``SELECT * FROM tbl in `c:\trash\trash.xls` `excel 5.0;` `` Set rs = db.OpenRecordset(SQLstr) rs.MoveLast: rs.MoveFirst MsgBox rs.RecordCount End Sub
