
Dim ruta As String = Environment.CurrentDirectory
Dim conn As New System.Data.OleDb.OleDbConnection()
Dim oCmd As System.Data.OleDb.OleDbCommand
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta & "\Db_Usuario.mdb"
Dim sSQL As String = "Select * tbl_Usuario from User_rut LIKE '*" & Me.txt_buscar.Text & "*'"
Dim rd As System.Data.OleDb.OleDbDataReader
Me.Label17.Text = sSQL
conn.Open()
oCmd = New System.Data.OleDb.OleDbCommand(sSQL, conn)
rd = oCmd.ExecuteReader()
conn.Close()