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"
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click MouseWait() Dim ClearTempTabelSQL As String 'If Not ......