Private Sub cmdOpen_Click()    CommonDialog1.Filter = "Excel???t(*.xlsx)|*.xlsx"    CommonDialog1.DialogTitle = "????"    CommonDialog1.ShowOpen    Me.txtFilePath.Text = CommonDialog1.FileName            Dim DBconn As ADODB.Connection    Dim strSQL As String    Dim RS As ADODB.Recordset        Set DBconn = New ADODB.Connection    Set RS = New ADODB.Recordset    DBconn.CursorLocation = adUseClient    strSQL = "SELECT * FROM [Sheet1$]"    DBconn.Open "provider=microsoft.ace.oledb.12.0;extended properties='Excel 12.0 Xml; imex=1'; data source=" & Me.txtFilePath.Text    RS.Open strSQL, DBconn, adOpenDynamic, adLockOptimistic        Set dgList.DataSource = RS    dgList.AllowUpdate = True        End Sub