アクセス可能な 'new' を縮小変換なしで呼び出すことができないため、オーバーロードの解決に失敗しました

dataset を宣言しましたか 新しいキーワードで?

次のような意味です:

Dim dbpasien As New DataSet()

または

Using dbpasien As DataSet = New DataSet()