devi associare le label ai campi della tabella del database

es..
Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Inherits System.Windows.Forms.Form


Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn1 As OleDbConnection = New OleDb.OleDbConnection
Dim dbApt As OleDbDataAdapter = New OleDbDataAdapter
Dim ds1 As DataSet

conn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;" & _
"Data Source=C:\Documents and Settings\Giancaspero\Desktop\Telerilevamento.mdb;" & _
"Mode=Share Deny None;Extended Properties="""";" & _
"Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";" & _
"Jet OLEDB:Engine Type=5;Jet OLEDBatabase Locking Mode=1;" & _
"Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;" & _
"Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;" & _
"Jet OLEDBon't Copy Locale on Compact=False;" & _
"Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"

' Apro la connessione
conn1.Open()

' Imposto la Stringa SQL (si potrebbe assegnare una tabella o una query)
Dim dbComm As OleDbCommand = New OleDbCommand("SELECT * FROM MezziGomma", conn1)

' Ovviamente comando di tipo testo (in questo caso)
dbComm.CommandType = CommandType.Text

' Assegno il comando al Data Adapter
dbApt.SelectCommand = dbComm

' ***********
ds1 = New DataSet("MezziGomma")

' ripulisco il dataset
ds1.Clear()

' popolo il dataset
dbApt.Fill(ds1, "MezziGomma")

' Nascondo il campo "NAZ"
ds1.Tables("MezziGomma").Columns("NAZ").ColumnMapp ing = MappingType.Hidden

'Assegno la sorgente al Datagrid
DataGrid1.DataSource = ds1

' Assegno la tabella da visualizzare
DataGrid1.DataMember = "MezziGomma"

' chiudo la connessione
conn1.Close()


End Sub


End Class
es..

cosi ti colleghi a un database access e lo colleghi a un datagrid

se puoi vuoi che i dati dei record vengano visualizzati su della label devi fare

label.databinding.add("text",nome dataset,"nometabella.nomecampo")