Code:

Public Class Form1
    Private WithEvents Cn As ADODB.Connection
    Private WithEvents rsRecordSet As ADODB.Recordset
    Private WithEvents rstempcode As ADODB.Recordset




    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Dim br_konta As String
        Dim rsRecordSet As New ADODB.Recordset
        rsRecordSet.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        rsRecordSet.CursorType = ADODB.CursorTypeEnum.adOpenStatic
        rsRecordSet.LockType = ADODB.LockTypeEnum.adLockBatchOptimistic

        rsRecordSet.Open("SELECT * FROM Tabela where Konto LIKE '1%'", Cn)
        MsgBox(rsRecordSet.RecordCount)
        DataGridView1.DataSource = rsRecordSet
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Cn = New ADODB.Connection
        Cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:\Documents and Settings\home\Desktop\Baza za zakljucni\Baza za zakljucni.mdb")
    End Sub
End Class

Code:

textbox1.text=rsRecordset!Konto