SQL Server - error al conectarme al sql desde vb.net

Saludos espero alguien me pueda decir que estoy haciendo mal, pues aparentemente esta todo bien, esta es mi cadena de conexion:

Dim cn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
Dim var_cn = "Data Source=.\SQLExpress;AttachDbFilename=|DataDirector y|\prueba.mdf;Integrated Security=True;User Instance=True;"

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_grabar.Click
Try
cn.ConnectionString = var_cn
If cn.State = ConnectionState.Open Then
cn.Close()
End If
cn.Open()
With cmd
.Connection = cn
.CommandType = CommandType.StoredProcedure
.CommandText = "InsertarProductos"
.Parameters.Clear()
.Parameters.Add("@codigo", OleDbType.VarChar).Value = Me.txt_cod.Text
.Parameters.Add("@nombre", OleDbType.VarChar).Value = Me.FreeTextBox1.Text.ToString
.Parameters.Add("@descripcion", OleDbType.VarChar).Value = Me.TextBox2.Text
'.Parameters.Add("@imagen", OleDbType.VarChar).Value =
.ExecuteNonQuery()
Me.Label4.Text = "Registro Ok"
End With
cn.Close()
Catch ex As Exception
lbl_cod.Text = "Error" + ex.Message
End Try

End Sub

pero al ejecutar la aplicacion me sale el siguiente error:

ErrorAn OLE DB Provider was not specified in the ConnectionString. An example would be, 'Provider=SQLOLEDB;'.

gracias a quien considere importante contestar.

Checa en estas ligas, tu string de conexion:

http://www.carlprothman.net/Default.aspx?tabid=81

http://www.connectionstrings.com/?carrier=sqlserver

gracias por contestar, voy a revisar esos enlaces. gracias nuevamente.