Adodc1.recordsource="select * from sheet1$" 
     ^^^^^^^^^Õâ ±Ø Ðë ÊÇ ExeclµÄ Çø Óò ±ð Ãû ,¼´ Îª sheet1$Æð Ò» ¸ö Êý ¾Ý ¿â ¿É ÒÔ ¿´ µ½ µÄ Ãû ×Ö 
<END>    
Ô´ Âë Èç ÏÂ : 
     Dim rstEmployees As ADODB.Recordset 
     Dim strOldFirst As String 
     Dim strOldLast As String 
     Dim strMessage As String 
     Dim SQL As String 
     Dim ShuLiang_Long As Long 
     
     strCnn = "DSN=News_Mouse" 'Êý ¾Ý Ô´ Ãû 
     SQL = "SELECT * FROM ÐÂ ÎÅ ¿â ;" 
     Set rstEmployees = New ADODB.Recordset 
     rstEmployees.CursorType = adOpenKeyset 
     rstEmployees.LockType = adLockOptimistic 
     rstEmployees.Open SQL, strCnn, , , adCmdText 
<END>