Option Explicit Public cnnDB As New ADODB.Connection \'connection µÔ´µè͡Ѻ°Ò¹¢éÍÁÙÅ Public adoRs As New ADODB.Recordset \'à¡çºªØ´¢Í§¢éÍÁÙÅ·Õèä´é¨Ò¡¡ÒûÃÐÁÇżŤÓÊÑè§ SQL (Select *from tb-name) Public Sql As String Public gvuser As String Public gvpassword As String Public Sub Connect() \'µÔ´µèͰҹ¢éÍÁÙÅ cnnDB.ConnectionString = \"Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=taxtablet;User=root;Password=1234;Option=3;\" \'¡Ã³Õà¤Ã×èͧàÃÒŧ appserv cnnDB.CursorLocation = adUseClient cnnDB.Open End Sub