Dim db As String db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=true;Data Source=\\MyName\Êý¾Ý¿â\Êý¾Ý¿â.mdb" cn.CursorLocation = adUseClient cn.Open db Set rs = New ADODB.Recordset Set rst = New ADODB.Recordset µ«ÕâÑùÒªÉèÖù²ÏíµÄȨÏÞ¡£Ôì³ÉÁËÊý¾Ý¿âµÄºÜ²»°²È« ÇëÎÊ´ó¼Ò£¬²»Óù²ÏíÎļþ¸ÃÈçºÎ·ÃÎÊ£¿ Çë»áµÄÅóÓѰï°ï棬Íò·Ö¸Ð¼¤£¡²»¹ÜÊÇsql»¹ÊÇaccess£¬Êý¾Ý¿â¶¼¿ÉÒÔÉèÖÃÃÜÂë¡£ Ô¶³ÌÓ¦¸Ã¿ÉÒÔ¿ª¸ö¶Ë¿Ú°É£¬²»Óù²Ïí¡£ÎÒÖ»Óùý±¾µØµÄ ÉèÖÃÃÜÂëÊÇ¿ÉÒԵġ£µ«ÎÒÖ÷ÒªÏëµÄÊDz»ÈÃÕâ¸öÎļþ¹²Ïí!ÕâÑùÊý¾Ý¿âÌ«²»ÍêÈ«À²£¡¿ÒÇë»áµÄÅóÓѰï°ïæ ¸üÕýһϣ¬ÉÏÃæÒ»¾ä»°´ò´íÁË£¬Ó¦¸ÃÊÇ¡°ÕâÑùÊý¾Ý¿âÌ«²»°²È«À²£¡£¡¡± Òª½«ACCESSÎļþËùÔÚĿ¼ÉèÖóÉÍêÈ«¹²Ïí£¬ÔÚ´úÂëÖÐÕâÑùд£ºData Source=\\¼ÆËã»úÃû»òIPµØÖ·\¹²ÏíĿ¼Ãû\Êý¾Ý¿â.mdb"
dim a as string,b as string£¬c as string a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ" b="µ¥Î»¹¤³ÌÃû³Æ" c="µ¥Î»" Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®