Visual Basic.NET - Abrir base de datos

Tengo un problema al tratar de abrir la base de datos.
Cuendo llego a la linea m_cn.Open(), el programa no pasa de hay.

Puse dos mensajes para verificar si el programa pasa for esa lines, pero solo me muestra el primer mensaje, en segundo no lo muestra, lo que indica que no esta pudiendo habrir la base de datos.

El programa me muestra el mensaje: MsgBox("Paso")
Pero no muestra el mensaje: MsgBox("Paso1")

Lo que indica que no esta pasando por hay.

Agradeceria cualquier sugerencia sobre cual puede ser la falla?

Gracias.


Dim m_cn As New SqlConnection()
Dim m_DA As SqlDataAdapter
Dim m_CB As SqlCommandBuilder
Dim m_DataTable As New DataTable

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

m_cn.ConnectionString = "Data Source=.\SQLEXPRESS; AttachDbFilename = " & _
"F:\VB 2010\BDInventario.mdf;Integrated Security=True;Connect Timeout=30;" & _
"User Instance=True"

MsgBox("Paso")

m_cn.Open()

MsgBox("Paso1")

m_DA = New SqlDataAdapter("Select NombreProd, MarcaProd, CodigoProd, CantidadDispProd, CantidadMinimaProd, PrecioProd, ImpuestoProd, CategoriaProd From TBProductos", m_cn)
m_CB = New SqlCommandBuilder(m_DA)

m_DA.Fill(m_DataTable)
With DBGInventario
.DataSource = m_DataTable
.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(0).Width = 220
.Columns(0).HeaderText = "Nombre del Producto"
.Columns(1).Width = 100
.Columns(1).HeaderText = "Marca Prod."
.Columns(2).Width = 100
.Columns(2).HeaderText = "Código"
.Columns(3).Width = 90
.Columns(3).HeaderText = "Cant. Disp."
.Columns(4).Width = 90
.Columns(4).HeaderText = "Cant. Míni."
.Columns(5).Width = 100
.Columns(5).HeaderText = "Precio Prod."
.Columns(6).Width = 80
.Columns(6).HeaderText = "Paga I.V."
.Columns(7).Width = 80
.Columns(7).HeaderText = "Categoría"
LblTotalReg.Text = .Rows.Count
End With

End Sub

Hola, lo unico que veo es que en el ConnectionString lo pones asi:

m_cn.ConnectionString = "Data Source=.\SQLEXPRESS; AttachDbFilename = " & _
"F:\VB 2010\BDInventario.mdf;Integrated Security=True;Connect Timeout=30;" & _
"User Instance=True"

Intentalo de esta manera:

m_cn.ConnectionString = "Data Source=.\SQLEXPRESS; AttachDbFilename = " _
& "F:\VB 2010\BDInventario.mdf;Integrated Security=True;Connect Timeout=30;" _
& "User Instance=True"

Como veras lo unico que cambia es la posicion del ampersand (&) que lo coloco detras de guion bajo ( _ ) y no delante como tu haces.

A mi asi me funciona.

Un Saludo, Antonio F. Gutierrez