[سعود]

تفضل الكود

PHP كود :

Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
    Dim con As New OleDbConnection(str)
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim cm As New OleDbCommand("select count(tid) from tb where tn is null", con)
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        MsgBox(cm.ExecuteScalar)
        If con.State = ConnectionState.Open Then
            con.Close()
        End If
    End Sub