If you put your code in a Try/Catch block it might give you more exact information as to what the error is:


VB Code:
  1. Try
  2.  
  3. 'Your existing code#
  4.  
  5.  
  6. Catch ex As Exception
  7.     Messagebox.Show(ex.Message)
  8. End Try

This wont solve it but may give you more info.

EDIT: Or someone just might know straight away.