[أبو عبدالله الحلواني]

هذا هو الكود بالكامل

كود :

   Public Sub ChangePassdbe(ByVal dbepas As String, ByVal pass As String)
       Dim cn As OleDb.OleDbConnection
       cn = New OleDb.OleDbConnection
       Dim cmd As OleDb.OleDbCommand
       cmd = New OleDb.OleDbCommand

       If Len(dbepas & "") > 0 Then
           cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbepas & ";Mode=Share Deny Read|Share Deny Write;"
           cn.Open()

           cmd.Connection = cn
           cmd.CommandText = "ALTER DATABASE PASSWORD [" & pass & "]NULL"

           cmd.ExecuteNonQuery()
           cn.Close()

           MsgBox("done!")
       End If
   End Sub

---

الكود احاول استخدامه لتغير كلمة السر لقاعدة بيانات المرفقة برمجيا
وجزاكم الله خيرا