摘要：
'引用 Microsoft OLE DB Service Component 1.0 Type LibraryOption ExplicitPrivate Sub Command1_Click()Dim x As New MSDASC.DataLinksx.hWnd = Me.hWndDim s As StringOn Error GoTo ErrorHandlers = x.PromptNewOn Error GoTo 0If VBA.Len(VBA.Trim(s & "")) > 0 ThenDim CommonDialog1 As New MSC 阅读全文
