使用ADO方式改变密码

Private Sub cmdChangeADO_Click()    Dim strNewPassword As String    Dim strsql As String        If fDC Then 'using data control        'cannot change password from ADODC        MsgBox "You have opened the database with ADODC data control. This control is not capable of changing the database password." & vbCrLf & "Use ADO Code connection string to achieve this."    Else        'Check if a database is open        If strSource = "" Then            MsgBox "No current database open"        Else            'Get new password            strNewPassword = InputBox("Please type in new password. Leave blank to remove password protection")            'Change password            If strNewPassword = "" Then 'Remove password                strsql = "ALTER Database Password `` " & strPassword            Else                If strPassword = "" Then 'no current password                     strsql = "ALTER Database Password " & strNewPassword & " ``"                Else 'straight forward change                    strsql = "ALTER Database Password " & strNewPassword & " " & strPassword                End If            End If            cnn.Execute strsql        End If    End If    'Update variable    strPassword = strNewPassword    WriteCaptions fDAOEnd Sub