Just a quick coding tip:

Code:
    Dim da As New OleDbDataAdapter
        da.SelectCommand = cmd
can be shortened to:

Code:
    Dim da As New OleDbDataAdapter With {.SelectCommand = cmd}
Also, I recommend giving controls and forms more meaningful names than Form10.