$result=mysql_query("select * from secciones");

Function ImpExcel(ByVal ruta As String, ByVal dgv As DataGridView)
        'funcion que muestra todos los campos de la hoja 1 de un excel en un datagridview
        Dim miconexion As New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; data source=" & ruta & "; Extended Properties=Excel 8.0;")
        Dim comando As New OleDbDataAdapter("select * from [cotizaciones al público$]", miconexion)
        comando.TableMappings.Add("Table", "Attendence")
        Dim DtSet As New DataSet
        comando.Fill(DtSet)
        dgv.DataSource = DtSet.Tables(0)
        Return Nothing
    End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim total As Integer = 57
        Dim porcentaje As Double
        Dim cantidadArchivos As Integer = ContarArchivos("D:\respaldo_mysql") 'aca le pasas el string de la ruta que quieras
        porcentaje = cantidadArchivos * 100 / total
        MsgBox(porcentaje)

    End Sub
    Function ContarArchivos(ByVal ruta As String)
        Dim ContadorDeArchivos As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
        ContadorDeArchivos = My.Computer.FileSystem.GetFiles(ruta)
        Return ContadorDeArchivos.Count
    End Function