Dim strConn As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("mdb-database/calcio.mdb")

        Dim objConn As New OleDbConnection(strConn)

        Using connection As New OleDbConnection(strConn)
            connection.Open()

            Dim queryString As String = "SELECT * FROM f_squadre WHERE lega = @Lega ORDER BY squadra;"
            Dim command As New OleDbCommand(queryString, connection)

            command.Parameters.Add("@Lega", OleDbType.VarChar).Value = Request.QueryString("fantacalcio")


            command.ExecuteNonQuery()

        End Using