Imports System.Data.OleDb
Public Class Form1
Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader




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


cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=database.mdb;")
cn.Open()

cmd = New OleDbCommand("select count (*) as maxrecord from items", cn)
dr = cmd.ExecuteReader
dr.Read()



msgbox(dr("colon_adi"))

End Sub


End Class


Yukardaki kod basit bir şekilde mdb database ' e bağlanıp ekrana birinci kolonu mesaj kutusu olarak yazdırır.

Database'in çeşitine göre oledb bölümü değiştirilebilir. Kolay gelsin.