vb.net中MS access数据库中的行数

Imports System.Data.OleDb

Public Class Form1
    Private Sub btnRowCount_Click(sender As Object, e As EventArgs) Handles btnRowCount.Click
        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Path\To\Your\Database.mdb"
        Dim query As String = "SELECT COUNT(*) FROM YourTableName"

        Using connection As New OleDbConnection(connectionString)
            connection.Open()

            Using command As New OleDbCommand(query, connection)
                Dim rowCount As Integer = Convert.ToInt32(command.ExecuteScalar())
                MessageBox.Show("行数: " & rowCount.ToString())
            End Using
        End Using
    End Sub
End Class