Visual Basic - VIDEOCLUB-LOAD DE LOS FORM DE BD

FSocios_Load
Dataset.Clear()
Adaptador.Fill(DatasetSocios.TABLASOCIOS)
BindingContext(DatasetSocios, "tablasocios").Position = 0
tbRegTotal.Text = BindingContext(DatasetSocios, "tablasocios").Count
InformacionRegActual()

Fpeliculas_Load
DatasetPelis.Clear()
AdaptadorPelis.Fill(DatasetPelis.TABLAPELIS)
BindingContext(DatasetPelis, "tablapelis").Position = 0
tbRegTotal.Text = BindingContext(DatasetPelis, "tablapelis").Count
InformacionRegActual()

FAlquileres_Load
AdaptadorSocios.Fill(DatasetSocios.TABLASOCIOS)
AdaptadorAlquiler.Fill(DatasetAlquiler.TABLAALQUILER)
BindingContext(DatasetSocios, "tablasocios").Position = 0
tbRegTotal.TEXT = BindingContext(DatasetSocios, "tablasocios").Count
InformacionRegActual()