Prova ad aprire la connessione prima del ciclo For ... Next

codice:
  .........
  Dim cmd As New SqlCommand("", conn)
  cmd.CommandType = CommandType.Text
  Dim da As New SqlDataAdapter(cmd)
  ' --------------------
    conn.Open()
  ' --------------------
  .........
Ciao,
Brainjar.