Bu örnegimizde datagridview kontrolunun bos mu dolu mu olduguna bakacagiz. yapmak istedigim, program açilista datagrid içindeki secili satirin id numarasini alip bir degiskene atmakti, datagrid dolu oldugunda bir sorun olmuyordu, direk degiskene istedigim id numarasini atiyordu ama bos oldugunda ise id numarasi olmadiginda program nesne bir basvuru örnegine ayarlanamadi hatasi veriyordu, programin çalisma sekli asagidaki gibi olacak.

Imports System.Data
Imports System.Data.OleDb
Public Class Form1

    Dim veritabani As New Class1
    Dim sorgu As New OleDbCommand
    Dim oku As OleDbDataReader
    Dim adap As New OleDbDataAdapter
    Dim doldur As New DataTable

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        verileri_getir()

    End Sub

    Sub verileri_getir()
        Dim baglanti As OleDbConnection = veritabani.baglanti_yol()
        baglanti.Open()
        sorgu = New OleDbCommand("select * from tarih where name=@okan", baglanti)
        sorgu.Parameters.AddWithValue("@okan", "x")
        adap = New OleDbDataAdapter()
        doldur = New DataTable 
        adap.SelectCommand = sorgu
        adap.Fill(doldur)
        DataGridView1.DataSource = doldur
        baglanti.Close()
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Label1.Text = DirectCast(DataGridView1.Rows(1).Cells("name").Value.ToString(), String)
        'Label2.Text = DataGridView1.SelectedRows.Count()
        'Label3.Text = DataGridView1.Rows(0).Cells("id").Value.ToString()

        'DataGrid içerisindeki 0. satirdaki id numarali hücre false deger gönderiyorsa bos yazdir true deger gönderiyorsa dolu yazdir seklinde kodluyoruz.
        If DataGridView1.Rows(0).Cells("id").Value = False Then
            MsgBox("bos")
        Else
            MsgBox("dolu")
        End If

    End Sub
End Class

Buda veritabanin yolunu cektigimiz class1 dosyasi kodlari;

Imports System.IO
Imports System.Data.OleDb
Public Class Class1

    Public Function baglanti_yol() As OleDbConnection
        Dim baglanti As New OleDbConnection("Provider=Microsoft.jet.OLEDB.4.0; Data Source=" + Directory.GetCurrentDirectory() + "\datetime.mdb")
        Return baglanti
    End Function
End Class