io però il dataset lo creo così:
Dim strsql As String
strsql = "SELECT TB_Registrazioni.ID,
TB_Registrazioni.Data,
TB_Tipi_Operazione.Descrizione,
TB_Registrazioni.Numero_assegno,
TB_Registrazioni.Importo,
TB_Registrazioni.Causale FROM
TB_Tipi_Operazione
RIGHT JOIN TB_Registrazioni ON TB_Tipi_Operazione.ID=TB_Registrazioni.Tipo_operaz ione"
Dim cmdcerca As New OleDbCommand(strsql, conn)
Dim da As New OleDbDataAdapter
da.SelectCommand = cmdcerca
Dim ds As New DataSet
da.Fill(ds)