Dim ds As New DataSet
        Dim sSQLSelect1 As String
        sSQLSelect1 = "select * from inf where file LIKE '" & temp & "'"
        Dim conn1 As New MySql.Data.MySqlClient.MySqlConnection("Server=localhost; Database=files; Uid=root; Pwd=pass; CharSet=utf8; Connect Timeout=30;")
        Dim dbAdapt As MySql.Data.MySqlClient.MySqlDataAdapter
        Dim SQLComm As New MySql.Data.MySqlClient.MySqlCommand(sSQLSelect1, conn1)
        Dim t As New System.Data.DataTable
        dbAdapt = New MySql.Data.MySqlClient.MySqlDataAdapter
        dbAdapt.SelectCommand = SQLComm
        dbAdapt.Fill(t)