il Data Adapter da lo hai già collegato ad una fonte di dati con :

codice:
  Dim da As New SqlDataAdapter(cmd)
Per cui dovrebbe funzionare con
codice:
    ' Commento le due righe 
    ' Dim dt As New DataTable
    ' da.Fill(dt)

    da.Fill()
Da quanto si capisce dal tuo codice e dagli errori che ricevi, o
fai il binding con l'oggetto command o lo fai con il DataTable.

Prova così.

Ciao,
Brainjar.