Visual Basic

ListBox1.Font = New Font(ListBox1.Font, ListBox1.Font.Style Or FontStyle.Bold)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Debug.WriteLine(SearchFileInDirTree("c:\test\", "TestText.txt"))
    'File is realy in folder "c:\test\test1\test2\"
End Sub
<System.Runtime.InteropServices.DllImport("imagehlp.dll")> Shared Function _
    SearchTreeForFile(ByVal rootPath As String, ByVal inputPathName As String, _
    ByVal outputPathBuffer As System.Text.StringBuilder) As Boolean
End Function
Function SearchFileInDirTree(ByVal rootDir As String, ByVal fileName As String) _
    As String
    Dim buffer As New System.Text.StringBuilder(260)
    SearchTreeForFile(rootDir, fileName, buffer)
    Return buffer.ToString()
End Function

Private con As OleDbConnection
Private  da As OleDbDataAdapter ' switch declaration for these two variables to be private. they're private by default, but it's good practice...

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

con = New OleDBConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\work\Student.mdb;User Id=Admin;Password=;")
da = New OleDBDataadapter("Select * from Users", con)

try
con.Open() 

Dim ds As DataSet
ds = New DataSet("Users")

da.Fill(ds)
DataGrid1.DataSource = ds
DataGrid1.DataMember = "Users"

catch ex as exception

messagebox.show(ex.message & environment.newline & environment.newline & ex.stacktrace, "Error")

finally

if (not con is nothing)
  con.dispose
end if

if (not ds is nothing) then
  da.dispose
end if

end try

End Sub
End Class