| ¥Ø«e¥H³o¼Ë°µ¬°¤@¦¸¬d¸ß 
 ½Ð°Ýn«ç¼Ë¤~¯à±N strSql ¬d¸ß§¹ªº¸ê®Æ
 ¦A¥HRS¤ºªº¸ê®Æ ¶i¦æ¤G¦¸¬d¸ß©O?
 
 
 
 ½Æ»s¥N½XDim rs As ADODB.Recordset 'Án©ú°O¿ý¶°¹ï¶H
Dim strSql As String
cnn.Open "provider=microsoft.ACE.oledb.12.0;Extended Properties=EXCEL 12.0;data source=" & ThisWorkbook.FullName
strSql = " slect ½s¸¹,Ãþ«¬,«~¦W from ì©l¸ê®Æ where Ãþ«¬='¼Ò«¬'"
rs.Open strSql, cnn, adOpenStatic
 |