Visual Basic.NET - nullreferenceexception

Amigos, me sale este error

No se controlo nullreferenceexception
Referencia a objeto no establecida como instancia de un objeto.

en este codigo

Private Sub nuevovended()
Dim dtcount As DataTable
Dim dtmax As DataTable
Dim max As Integer = 0
Dim count As Integer = 0
Dim smax As String
'Cuenta Registros
Dim dacount As New OleDbDataAdapter("select count(vended_iden) from vended where empres_iden='" & idempresa & "'", DBConex)
dtcount = New DataTable
dacount.Fill(dtcount) 'AQUI SALE EL ERROR
count = Convert.ToInt32(dtcount.Rows(0).Item(0))

En access corre correctamente, pero en mysql se detiene siempre en el fill

Saludos y gracias

Debes poner el modificador New. O sea:

Dim dacount as New DataTable

Aunque ahi no se ve la declaración de esta. Capaz que la tienes fuera del ambito.