Dim baglan As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Dogukan\source\repos\kayıt\kayıt\veri3.accdb")
Dim komut As New OleDbCommand("select * from kayıt where kadi='" & TextBox1.Text & "'", baglan)
komut.Connection = baglan
baglan.Open()...