& App.Path & "\file.mdb;Persist Security Info=False"
    str = Trim(List1.Text)
    sql = "select * from info_place where kname='" & str & "'"
    rs.Open sql, cn, 1, 1
    Text1.Text = rs("kno")
    Text2.Text = rs("knum")
    Text3.Text = rs("kname")
    Text4.Text = rs("kaddr")
    
    End Sub