Error: No permite realizar el backup de la bd

[Aquaventus]

Hola Geovanny0401!, has hecho seguimiento a tu codigo colocandole breakpoints? para determinar si la hora que toma es la indicada?, intenta cambiando algunas lineas de esta manera :

Código vb.net:

Copia de seguridad 
            'Dim hora As TimeSpan = Date.Now.TimeOfDay() 
            Dim txtHora As String = DateTime.Now.ToString("HH:MM") 
            Dim swBkp As Boolean = False
            'Es Recomendable que hagas comparación con el Equals
            If txtHora.Equals("18:00") Then 
                Dim Ruta As [String] = "", Comando As [String] = "", Arg As [String] = "" 
                Ruta = (Application.StartupPath.Replace("\\", "/") & "/") & DateTime.Now.ToString("yyyy-MM-dd") 
                If Not swBkp Then 
                    swBkp = True 
                    Dim Pr As New Process() 
                    Pr.EnableRaisingEvents = False 
                    Pr.StartInfo.UseShellExecute = False 
                    Pr.StartInfo.RedirectStandardOutput = True 
                    Pr.StartInfo.FileName = "mysqldump" 
                    Pr.StartInfo.Arguments = "--opt --force --host=localhost --user=root --password=root --databases rs -r" & Ruta & ".sql" 
                    Pr.Start() 
                End If 
            End If 
 
        Catch ex As Exception 
 
        End Try
 

Pruebalo y nos comentas. Saludos!.