Ok, I've done it. This is my code:
Private Sub CountHoNgheo()
Try
Connect()
Dim ds As New DataSet
ds.Clear()
Dim da As New OleDbDataAdapter("SELECT * from tblKH WHERE(((tbl.A) = 'ABC'))", cn)
lblNgheo1.Text = da.Fill(ds, "tbl").ToString
Catch ex As Exception
lblMessage.Text = ex.ToString
End Try
End Sub
Thank for your suggestion!