Ecco il mio codice:

Dim Co As New FbConnection
Co.ConnectionString = Str_Co
Co.Open()
Dim Query As String = "select * from agenda "
Dim Dta As New FbDataAdapter (Query, Str_Co)
Dim Dts As New DataSet()
Dta.Fill(Dts, "agenda")
Me.DataGridView1.Datasource = Dts.Tables ("agenda")

Formalmente corretto, ma quando eseguo mi da' che agenda non ha un'istanza.
Non sono un mostro di programmatore lo faccio solo per diletto non per professione, ma questo mi sembra un mistero
Raf