Public Function setDBPSW(sNewPsw As String, sPsw as String) As Boolean
'   DB Passwort setzen
'   ALTER DATABASE PASSWORD NeuesKennwort AltesKennwort
    setDBPSW = False
    if len(sNewPsw) < 1 then exit Function
    try
    	Dim SQL1 as String
    	Dim oConn As ADODB.Connection
    	oConn = New ADODB.Connection
    	With oConn	
        	.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
          DBName  ';Jet OLEDB:Database Password=" + Passwort	
        	.Mode = ADODB.ConnectModeEnum.adModeShareExclusive
        	.Open()
        	If len(sPsw) > 0 then
        		SQL1 = "ALTER Database Password '" & Trim(sNewPsw) & "' '" & Trim( _
          sPsw) & " ;"
        	else
        		SQL1 = "ALTER Database Password '" & Trim(sNewPsw) & "' NULL;"
        	end if
        	.Execute(SQL1)
        	.Close()
    	End With
    	setDBPSW = True   	
    Catch exep As Exception
    	msgbox(exep.ToString, MsgBoxStyle.Critical,"FEHLER")	
    end try
 
End Function