Trabalhando com data grid view desconectado

[Everest 0]

Amigos,

 

Sou marinheiro de primeira viagem em vb.net e tenho uma duvida..

 

Estou usando o sqlserver 2008 e estou tentando preencher a data grid view

(dtGrdViewTpDocs) com os dados da tabela tiposdocs, estou fazendo isso

no evendo load do form, mas quando chega na linha do comando

ConnectionToFetch.Open() o frmList é carregando sem continuar

a executar o codigo restante abaixo deste comando.

 

Gostaria de saber o que estou fazendo de errado ou o que esta faltando?

 

 Imports System.Data
Imports System.Data.SqlClient
Private Const ConnectionString As String = "Server=POISON-PC\SQLEXPRESS;Database=dbsisarquivs;User ID=sa;Password=aaaaaa;Trusted_Connection=False;"

   Dim SelectQry = "SELECT * FROM tiposdocs "
   Dim DS As New DataSet
   Dim SQLCOMMAN As New SqlCommand()
   Dim DA As New SqlDataAdapter
   Dim TableView As DataView

 Private Sub frmList_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       ConnectionToFetch.ConnectionString = ConnectionString

       ConnectionToFetch.Open()

       SQLCOMMAN.CommandText = SelectQry
       SQLCOMMAN.Connection = ConnectionToFetch
       DA.SelectCommand = SQLCOMMAN

       DA.Fill(DS)

       TableView = DS.Tables("tiposdocs").DefaultView

       dtGrdViewTpDocs.DataSource = TableView

 End sub

[quintelab 91]

Se ele travar ali é pq esta tentando abrir a conexão e não esta conseguindo.

Eu não consegui encontrar onde declarou o ConnectionToFetch.

 

Abraços...