مالمشكلة في هذا الكود

السلام عليكم ورحمة الله

اريد معرفة ماهي المشكلة علما بانو يتظلل وقت الرن بالاصفر على con.open

كانو مش قادر يشبك دااتايبس

ارجو افادتي بارك الله فيكم

Imports System.Data.OleDb

Public Class Form3

    Dim Con As New OleDbConnection

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Desktop\HR.accd"
        Con.Open()
        datagridshow()

    End Sub
    Private Sub datagridshow()

        Dim ds As New DataSet
        Dim dt As New DataTable
        ds.Tables.Add(dt)
        Dim da As New OleDbDataAdapter

        da = New OleDbDataAdapter(" select * from EMP ", Con)

        da.Fill(dt)

        DataGridView1.DataSource = dt.DefaultView

        Con.Close()

    End Sub
End Class