สอบถามเกี่ยวกับ VB2010 เชื่อมต่อ Access 2007 อ่ะครับ

        Dim con As New OleDb.OleDbConnection
        Dim dbpro As String = "Provider = Microsoft.Jet.OleDB.4.0; "
        Dim dbsource As String = " DATA SOURCE = d:/EasySale.mdb "
        con.ConnectionString = dbpro & dbsource

        If Not (con.State = ConnectionState.Open) Then
            con.Open()
        End If

        Dim sqlCount As New OleDb.OleDbCommand
        sqlCount .Connection = con
        sqlCount .CommandText = "SELECT COUNT(sale_head_id) FROM sale_head"
        MessageBox.show(sqlCount .ExecuteScalar())