Hola, segun yo el error esta en la siguiente parte
Código VB.NET:
Ver originalCm = New OleDbCommand("SELECT * FROM coleccion WHERE Id = '" & TbIDBusca.Text & "'")
Deberia ser, si no estoy mal.
Código VB.NET:
Ver originalCm = New OleDbCommand(Tu Consulta, Tu Conexion)
Saludos....