Gracias a todos. Por fin logré solucionarlo con este código: Si a alguien le sirve, aquí lo dejo. Funciona OK!!
Código vb:
Ver originalSql = "SELECT SUM(monto) As TOTALM from meses where status='ACTIVO' and mesactual= '" & vMes & "' and ano= " & vAno & ""
cmd = New OleDbCommand(Sql, con)
dread = cmd.ExecuteReader()
While dread.Read
If dread("TOTALM") Is DBNull.Value Then
txtPendiente.Text = "No hay registros"
Else
vTotal = dread("TOTALM")
txtPendiente.Text = String.Format("{0:n2}", vTotal)
End If
End While
dread.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "", MessageBoxButtons.OK)
Finally
End Try