Dim Pass_alt As String = "''"   'String.Empty
        Dim Pass_neu As String = "'geheim'"
 
        Dim SqlString As String = "ALTER DATABASE PASSWORD " & Pass_neu & " " & _
          Pass_alt
 
        Using oConn As New SqlConnection(dbString)
 
            Using cmd As New SqlCommand(SqlString, oConn)
                cmd.CommandType = CommandType.Text
                Try
                    oConn.Open()
                    cmd.ExecuteNonQuery()
                    MsgBox("Passwort wurde gesetzt.")
                Catch ex As Exception
                    MsgBox(ex.Message)
                Finally
                    If oConn.State = ConnectionState.Open Then
                        oConn.Close()
                    End If
                End Try
            End Using
 
        End Using

Hänk

(Wer früh aufsteht hat mehr vom Tag)