module1.bas

对于一个产品

Attribute VB_Name = "ModSQL"
Option Explicit

Public cnString, pubUserID As String
Public cn As New ADODB.Connection
Public cn1 As New ADODB.Connection

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Const SND_SYNC = &H0
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
Private Const SND_LOOP = &H8
Private Const SND_NOSTOP = &H10

Public Sub SQL_ADO()
    cnString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Pwd=testdata;Initial Catalog=HTCData;Data Source=172.16.63.250"
    cn.Open cnString
End Sub

'Public Sub SQL_MIS()
    'cnString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sqltwsmis;Pwd=db6^8$3@5x;Initial Catalog=dberp;Data Source=svrmis"
    'cn1.Open cnString
'End Sub

Public Sub PlaySound(strSound As String)
    Dim wFlags%
    wFlags% = SND_ASYNC Or SND_NODEFAULT
    sndPlaySound strSound, wFlags%
End Sub